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LEDER 


Vores eks-formand, Gilvad, skrev 
engang om den skrækindjagne pc- 
virus, der smittede gennem disket¬ 
ter. Indtil nu har sygdommen været 
ukendt på MSX, men forleden hvor 
jeg skulle kopiere et program blev 
disketten jeg ville kopiere det på 
ødelagt! Jeg prøvede med en anden 
diskette - den blev også ødelagt!! 
Hvad gør man så. Jo, jeg har jo 
hørt om diverse smitsomme sygdomme 
i fjernsynet, så jeg iførte mig 
gummi-handsker og høreværn, og 
prøvede igen. Så lykkedes det ende¬ 
ligt at få kopieret Basic-compiler¬ 
en. Hov! Hvad var det for et ord, 
”Basic-compi1 er"! Jo, det er ganske 
vist. Klubben er kommet i besidelse 
af et sådant snedigt program der 
oversætter Basic til maskinkode 
men læs videre om det inde i bla¬ 
det . 
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■#-*-**- ALLA MSX p ARE 


HEJ ALLA MS & , ARE 


m Håi Mr några anvMndbara (?) tips. Fbljande rader 
kallstartar datorn om man forstiker LISTa ett prog¬ 
ram: 

PQKE 4HFF8B,4H00 
POKE 4HFF8A,4H00 
POKE 4HFF89,4HC3 

Har du trdttnat på det vanliga "tangentklickandet"? 

Skriv då in foljande: 

POKE 4HFDC4,4HOO 
POKE 4HFDC3,4HC0 
POKE 4HFDC2,4HC3 

Raderna nedan genererar samrna ljud nar "Ok" visas. 

POKE 4HFF09,4H00 
POKE 4HFF 08,4HC0 
POKE 4HFF07,4HC3 

De tre nåmnda tipsen anropar RSX:ens så kallade 
••hooks", vilket betyder "krok" eller "hake" på sven¬ 
ska. Mer om dem står det i "The RSX red book". 

Nar jag skrev in scroll-programmet som fanns i Syntax 
nummer 10/88 ville det inte riktigt fungera, men så 
skrev jag in ftiljsndø radar och dl fungerado det. 

860 POKE 4HFDA1,4HD0 
870 POKE 4HFDA0,4H00 
880 POKE 4HFD9F,4HC3 
900 POKE 4HFD9F,4HC9 

Till sist ett program som simulerar en accelererande 
motor: 

10 RER ACCELERERANDE ROTOR 
20 S0UND 7,4B111000 
30 S0UND 8,16 
40 S0UND 11,30 
50 S0UND 12,0 

60 S0UND 13,14 I 

70 FOR A=15 TO 1 STEP -1 

80 FOR B=255 TO 0 STEP -1 

90 S0UND 0,B 

100 S0UND 1,A 

110 NEXT B,A 

120 FOR A=1 TO 15 

130 FOR B=0 TO 255 

140 SOUND 0,B 

150 SOUND 1,A 

160 NEXT B,A 

Slutligen skulle jag vilja ueta om man får anvanda 
i"Screen store", "Dump" och "Sload" i sina egna prog-^^ ——— 
ram? 


Red vånliga halsningar från Johan Bergman 




-*-**"* ANNONCE ***•#■ 










•*•■**•*■ BREV FRA BJØTRN *■*■** 


BREV FRA BJØRN 

Vi har modtaget følgende brev fra 
Bjørn Bergstrøm i Storvik i 
Sverige: 

Vore tacksam om ni tog upp lite om 
datakomunikation <att per telefon 
få kontakt med databaser). Till 
SVI738 (som jeg har) finns ju 
Videotexprogram med. Men jeg skulle 
vilja ha andra terminalprogram for 
hastigheten 75/1200. 

Vidare några frågor. Hur auto¬ 
starter man ett Basic-80 program? 
Kan man på något sått gora plats 
for mer Basicprogramering t.ex. 
genom att utnyttja plats dår 
grafiken ligger? 

Jeg har tidligare frågat angående 
ett program ni hade med i bladet nr 
2-86 som Kurt konstruerat, men jag 
fick ej något svar. Programmet 
heter Ram-disc. Dår påstår Kurt att 
når man gdmmer programmet skall 
åven variabler bli sparade, men når 
jag tar fram programmet igen måste 
det ju startas upp och då biir ju 
alla variabler 0. 

Till sist - På senare tid har det 
varit mycket om musik i bladet. 
Var for? Den som kopt dator har vål 
inte gjort det for att spela musik 
på den? 

! !! Tak for forslaget om at tage 
datakommunikation op som emne, det 
har vi aldrig rigtigt gjort noget 
ud af. Vi har ikke tidligere 
skrevet artikler om dette fordi der 
faktisk ikke har været nogen i 
redaktionen der vist noget særligt 
om emnet. Jeg (Kurt) har længe haft 
et telefon-modem men har ikke brugt 
det så meget, og jeg har først for 
nylig forstået hvordan seriel 
kommunikation præcist er opbygget. 
Gilvad har været i gang længere og 
han må nok betragtes som redak¬ 
tionens ekspert på dette område. På 
det seneste er også Søren (sømand) 
Mortensen og Erik Steen fundet ud 
af mulighederne i seriel kommuni¬ 
kation, så nu skulle vi efterhånden 
have forstand på emnet. 

Vedrørende et terminal program der 


kan køre 75/1200 har jeg set et 
VT100 emulator skrevet af Andrzej 
Felczak som kunne, men jeg ved ikke 
om det kan benyttes til videotex. 
Prøv at kontakte Gilvad direkte han 
kender nok noget som kan benyttes. 

Basic80 er et specielt program til 
SVI738, som gør det muligt at 
benytte 80 tegn i Basic ligesom på 
MSX2ere. Gilvad viste i nr. 1 '88 
et lille program som rettede en 
fejl ved BEEP i Basic80 programmet. 
Basic80 har en anden mærkværdighed. 
Når programmet BLOADes og runnes 
vil det efter initialisering af 80 
tegn gå ud i Basic - og det selvom 
BLOAD kommandoen står midt i et 
program (fx. en autoexec.bas ) som 
gerne skulle fortsætte bagefter. 
Jeg har altid troet at det ville 
være næsten umuligt at finde og 
ordne "årsagen til denne mærkvær¬ 
dighed, men det var overraskende 
simpelt, det kan rettes med blot en 
POKE. 

Når programmet har kopieret sig 
selv over i SVI738s ekstra-ram og 
rettet diverse hooks, laver den et 
system reset kald til en MSXDOS 
rutine. System reset (DOS-kald nr. 
0) lyder voldsomt men er bare en 
varm-start altså at gå ud 1 klar 
tilstand i Basic. Dette pjat kan 
udskiftes med en almindelig Z80 RET 
instruktion (kode: #C9), og så er 
der ingen problemer mere. I det 
efterfølgende program har jeg 
medtaget Gilvads BEEP rettelse, så 
programmet kan klare begge 
problemer hvis BEEP ikke skulle 
være ordnet allerede. 


EasicSO fix, SVI738: 


100 ’SVI-738: EASICSO.OBJ 
110 'Ordner fejl i BEEP kommando, og 
120 ’laver ordentlig afslutning saa 
130 'programmet ikke falder ud i Basic 
140 ’efter initialisering. 

150 * 

160 'Rettelse af BEEP vist i 
170 ’Syntaxen nr.l ’8S. 

180 ’ 
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•*•*-*-* BREV FRA BJØRN *-**--* 


210 DATA F7,00 t 13,ll,C9 _ 

220 FOR I=&H9409 TO &H94UD 
230 READ A$:POKE I,VAL("&h"+A$) 
240 NEXT 1 

250 POKE &H907F,&HC9 

260 BSAVE"W80.OBJ",&H9000,&H9B14 


Man kan sagtens benytte noget af 
videorammen til at gemme tal- og 
tekst-data i, men det er lidt 
besværligt. Med VPOKE og VPEEK 
instruktionerne kan du gemme og 
læse byte værdier i videorammen. 
Hvor meget ram som kan benyttes til 
data afhænger af hvilken skærm mode 
du benytter. Med den alm. 40 tegns 
tekst skærm (SCREEN 0 ) er der meget 
plads, 12K, tilovers som vil kunne 
benyttes. 


I det følgende program vil du kunne 
indtaste tekst som vil gemt lru 
adresse 8192 og fremefter i..video- 
rammen. Ved først at starte fra 

adresse 8192 vil du ikke få 
problemer hvis du benytter 80 tegns 
tekst-skærmen på SVI738, men du kan 
ændre adressen alt efter skærmtype. 
Teksten gemmes fortløbne hvor 
første byte bruges til at gemme 

længden af strengen, og selve 
strengen er gemt på de 

efterfølgende bytes. 

En fordel i forhold til almindelige 
variabler er at det ikke vil blive 

slettet selvom der er en CLEAR 

I instruktion i programmet - men man 
skal holde styr på meget mere selv. 
Det viste program kan benyttes på 
både MSX og SVI328 computere. 


Data gem videorarn MSX og SVI328: 

100 ’ Data gern video-rarn 
110 » 

120 VA=8192 

130 A$=""!LINE INPUT "? 11 ;A$ 

140 IF A$="" THEN 210 
150 VPOKE VA,LEN(A$) 

160 FOR 1=1 TO LEN(A$) 


170 VPOKE VA+I,ASC(MID$(A$,1,1)) 

180 NEXT I 

190 VA=VA+LEN(A*)+i 

200 GOTO 130 

210 ' 

220 VPOKE VA,0 'Slut maerke 
230 ’ 

240 CLS 
250 RV=8192 

260 L=VPEEK(RV) ’Laes laengde 
270 IF L=0 THEN END 
280 FOR 1=1 TO L 
290 PRINTCHR$(VPEEK<RV+I)); 

300 NEXT I 
310 PRINT 
320 RV=RV+L+i 
330 GOTO 260 


En anden måde at gemme specielt 
tekst i videorammen er at benytte 
SPRITES. SPRITE$<x ) er opbygget som 
en array dimensioneret til 256 
elementer hver på 8 tegn, eller 64 
elementer hver på 32 tegn. Bagdelen 
her er at du kun kan bruge 2K og du 
skal være i grafik mode eller 32 
tegns tekstskærmen, for at bruge 
SPRITES. 

Ram-disc programmet gemmer skam 
både programmet og variabler, den 
gemmer faktisk en kopi af alle 32K 
Basic ram. Jeg tror dit problem er 
at du starter programmet igen med 
RUN som jo sletter alle variabler. 
Bruger du i stedet for GOTO kan du 
køre programmet uden at få slettes 
variabiernes indhold. 

Hele redaktions arbejde med bladet 
og andet arbejde vedrørende klubben 
er frivilligt og helt ulønnet. Vi 
tager alle gerne i mod forslag til 
programmer og artikler, men det er 
vel naturligt at vi først og 
fremmest skriver om det som 
interesserer os. Således er 
Johnny B. meget interesseret i 
musik og skriver derfor meget om 
dette. Vi vil også gerne have meget 
andet i bladet, og vi modtager 
gerne programmer og artikler, fra 
alle som har fået lyst til at se 
sine egne programmer på tryk - send 
03 dine programmer og sæt dermed 
dit præg på syntaxen. 


Kurt! 





*-*-** DEMOER TIL MSX II ***■* 


DEMOER TIL 
MSX I I 

Hermed et par sm&demoer 
for MSX 2 folket 

Demoerne snuppet fra 
Sony's MSX 2 Basic bog 

af Johnny B 

Først en palette demo 

10 SCREEN5 

20 F0RL-8T01STEP-1 

30 CIRCLE(120,100),L*10+5,L 

40 PAINT(120,100), L,L 

50 NEXTL 

60 K-(K+l)MOD8 

70 FOR L-1T08 

80 COLOR"(L,K,K,0) 

90 K-(K+l)MOD8 
100 NEXTL 
110 GOTO60 

linie 80 kan også være 
80 COLOR*(L,0,K,K) 
eller 

80 C0L0R-(L, K, 0, K) 


Nu en kasse palet demo 

10 S-2:CN-10:L-50:M-L*2 
20 XS"(255MODM)/2:YS-(211MODM)/2 
30 COLOR15,0,0:SCREEN5 
40 1 

50 FORT"0TOTIME-INT(TIME/100)*100:J 
-RND(l):NEXT 
55 1 

60 i**** T egn KASSE **** 

65 1 

70 FOR XOL+XST0255-LSTEPM 
80 FORYC-L+YST0211-LSTEPM 
90 C-0 

100 FORP-LTOOSTEP-S 

110 LINE(XC-P,YC-P)-STEP(P*2,P*2),C 

+1, BF 


120 C-(C+l)M0DCN 
130 NEXTP 
140 NEXTYC 
150 NEXTXC 
155 1 

160 ***** DEFINER FARVE **** 

165 ' 

170 R-RND(1)*5+2:G-RND(1)*5+2:B-RND 
(1)*5+2 

180 FORP-1TOCN 

190 J-P/CN:R(P)-R*J:G(P)-G*J:B(P)-B 
*J 

200 NEXTP 

2io ***** SKIFT FARVE **** 

215 * 

220 FORK-0TO20 
230 FORP-1TOCN 

240 COLOR"(J+1,R(P),G(P),B(P)) 

250 J-(J+l)MOD CN 
260 NEXTP 
270 J-(J+l)MOD CN 
280 NEXTK 
290 GOTO170 

Ja det var jo flot 
Nu et lille ur med et 
pendul der svinger 

10 SCREEN5 

20 SETPAGE0 , 1:CLS 

30 Xl-110:X2-100 

40 GOSUB130 

50 SETPAGE0,0:CLS 

60 X1-140:X2-150 

70 GOSUB130 

80 SETPAGE1 

90 FORT"0TO300:NEXTT 

100 SETPAGE0 

110 FORT-0TO300:NEXTT 

120 GOTO80 

130 COLOR13,3,3:CLS 

140 LINE(75,10)-(175,200) , ,B 

150 PAINT(76,11) 

170 CIRCLE(125,60),40,15 
180 LINE(125,60)-(125,25),1 
190 LINE(125,60)-(115,80),1 
200 LINE(80,120)-(170,190),4,BF 
210 LINE(XI,120)-(X2,170),10 
220 CIRCLE(X2,170),12,10 
230 PAINT(X2,171),10 
240 RETURN 

så kan i selv sætte lyd på 
og måske få uret til at gå 
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*-*■** DEMOER TIL MSX XI -**** 


En mer af slagsen her en vippe 

10 SCREEN5 

20 SETPAGEO,1:CLS 

30 LINE(70,165)-(180,140),1 

40 SETPAGE1,0:CLS 

50 LINE(70,140)-(180,165),1 

60 CIRCLE (70,70),20,12 

70 PAINT(70,70),12 

80 COPY(50,50)-(90,90),OTO(160,120) 
,0 

90 COPY(50,50)-(90,90),OTO(160,50), 
1 

100 COPY(50,50)-(90,90),OTO(50,120) 

,1 

110 SET PAGEO 

120 FORT-0TO300:NEXTT 

130 SET PAGE1 

140 FORT-OTOSOO:NEXTT 

150 GOTOllO 


Så tegner vi en lille cirkel 
+ en stor oval og ved at skifte 
pages ligner det en sol 

10 COLOR 15,4,4: SCREEN 5,,,,', 0 
20 SET PAGE 0,1:CLS 
30 XC-128:YC-100 
35 1 

40 •**** TEGN GUL CIRKEL **** 

45 ' 

50 SET PAGE 0,0 
60 CIRCLE (XC,YC),45,10 
70 PAINT (XC,YC),10 
80 FOR T-0 TO 2000:NEXT T 
85 1 

90 ***** TEGN HVID OVAL 
95 ' 

100 SET PAGE 1,1 

110 CIRCLE (XC,YC),90,15,,,.7 

120 PAINT (XC,YC),15 

130 FOR T-OTO 2000:NEXT T 

135 1 

140 ***** SKIFT SIDE **** 

145 ' 

150 J-1200:DP-0:AP-1 
160 SET PAGE DP,DP:SWAP DP,AP 
170 FOR T-0 TO J:NEXT T 
180 J-J*.8:IF J>1 THEN 160 
185 1 

190 ***** lige/ulige **** 

195 ' 

200 SET PAGE 1,1 


210 SCREEN.2 

220 GOTO 220 


Så skal vi have lidt UFO'er 
på skærmen 

10 SCREEN 5 

20 SPRITE!(0)-CHR$(&H3E)+CHR$(&H7E) 
+CHR$(&H81)+CHR$(&H81)+CHR$(&HFF)+C 
HR$(&H7E)+CHR!(&H24)+CHR$(&H42) 

30 COLOR ,1,1:CLS 

31 ' 

32 'TEGNE BAGGRUND 

33 ' 

40 Xl-0:Yl-118 
50 FOR L-l TO 14 
60 READ X2,Y2 
70 LINE(X1,Y1)-(X2,Y2),3 
80 X1-X2:Y1-Y2 
90 NEXT L 

100 PAINT (1,119),3 

101 ' 

102 'BEVÆGER SPRITE 

103 ' 

110 P-0:X-5:YE-101:C-3:GOSUB 250 
120 P-l:X-45:YE-122:C-4:GOSUB 250 
130 P-2:X-83:YE-87:C-5:GOSUB 250 
140 P-3:X-133:YE-143:C-6:GOSUB 250 
150 P-4:X-168:YE-127:C-7:GOSUB 250 

160 P-5:X-218:YE-96:C-8:GOSUB 250 

161 ' 

162 'ÆNDRE FARVE SPRITE MØNSTER 

163 ' 

170 FOR S-l TO 10 
180 FOR SP-0 TO 5 
190 SC-S+3:IF S-10 THEN SC-0 
200 COLOR SPRITE (SP)-SC 
210 NEXT SP 

220 FOR T-0 TO 300:NEXT T 
230 NEXT S 

240 GOTO 110 

241 ' 

242 'UNDERPROGRAM FOR BEVÆGE SPRITE 
S 

243 ' 

250 FOR Y—8 TO YE 

260 PUT SPRITE P,(X,Y),C,0 

270 NEXT Y 

280 RETURN 

281 ’ 


*-•*-** DEMOER TIL. MSX II -*-*-*■* 


282 'DATA TIL AT TEGNE BAGGRUND 

283 ' 


290 DATA 26,118,40,139,67,139 
300 DATA 79,104,103,104,128,160 
310 DATA 154,160,161,144,192,144 
320 DATA 200,113,252,113,252,212 
330 DATA 0,212,0,118 


Og nok en UFO der Åbner sig 
Og KURT kommer frem 


10 SCREEN 5,1 

20 SPRITE$(0)-CHR$(&H3C)+CHR$(&H7E) 
+CHR$(&H81)+CHR$(&H81)+CHR$(&HFF)+C 
HR$(&H7E)+CHR$(&H24)+CHR$(&H42) 

30 SPRITE$(1)-CHR$(&H58)+CHR$(&H58) 
+CHR$(&H7E)+CHR$(&H1A)+CHR$(&H18)+C 
HR$(&H18)+CHR$(&H0)+CHR$(&H0) 

40 CLS 


50 PUT SPRITE 0,(120,100),8,0 
60 FOR T-0 TO 1000:NEXT T 
70 COLOR SPRITE$(0)-CHR$(&H81)+CHR$ 
(&H81) 

80 FOR T-0 TO 1000:NEXT T 
90 PUT SPRITE 1,(120,96) , 3 , 1 
100 OPEN"grp:"FOROUTPUTAS#l 
110 PRESET(115,130):PRINT#1,"KURT" 
120 GOTO 120 


og til disketten 

10 SCREEN5 
20 SETPAGE 0,0:CLS 
30 LINE(20,20)-(20,105) 

40 LINE(20,20)-(60,105) 

50 LINE(20,105)-(60,105) 

60 PAINT(25,50) 

70 COPY (20,20)-(60,105),0 TO "trek 
ant,pie" 

Check selv om ikke filen er 
oprettet på din disk 
Nu tilbage til skærmen 

10 SCREEN 5 

20 SET PAGE 1,1:CLS 

30 COPY "TREKANT.PIC",0 TO (138,10) 

, 1 

40 COPY "TREKANT.PIC",1 TO (117,10) 

50 COPY "TREKANT.PIC",2 TO (138,200 
) , 1 

60 COPY" "TREKANT.PIC",3 TO (117,200 

) ,1 

70 GOTO 70 

hvis du vil vente og se billedet 
på en gang skal du ændre 
linie 20 og tilføje linie 65 


20 SET PAGE 0,1:CLS 
65 SET PAGE1 


Nok en kopiering 


Så tegner vi en trekant 
og kopierer den på skærmen 

10 S-INT((((ABS(-40)+1)*(ABS(-85)+1 
)*4+7)/8+4)/8)+1 
20 DIMP(S) 

30 SCREEN5 
40 SETPAGE 0,1:CLS 
50 SETPAGE 0,0:CLS 
60 LINE(20,20)-(20,105) 

70 LINE(20,20)-(60,105) 

80 LINE(20,105)-(60,105) 

90 PAINT(25,50) 

100 COPY (20,20)-(60,105),0 TO P 
110 COPY P,0 TO (138,10),1 
120 COPY P,1 TO (117,10),1 
130 COPY P,2 TO (138,200),1 
140 COPY P,3 TO (117,200),1 
150 SETPAGE1 
160 GOTO 160 


10 SCREEN5 
20 SETPAGE0,0 

30 LINE(10,10)-(150,140),8,BF 

40 CIRCLE(90,60),40,1_3 

50 PAINT(90,60),1 
55 FORI-1TO300:NEXTI 
60 COPY(20,30)—(90,100),OTO(160,70) 
, 0 

70 GOTO70 

Ja det var lidt MSX 2 rutiner 
jeg håber det kunne give dig 
et par ideer 

Venlig hilsen Johnny B 
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*-•*-**- KIM MOSER **** 


KIM MORSER. . . 


En gang imellem sker det at man 
fuldstændig mister mælet - og hvad 
gør man så! Ja, man kan jo begynde 
at morse i stedet. Og kan man ikke 
morse, så er hjælpen her: Et pro¬ 
gram hvor igennem kunsten kan 
læres. Programmet lavede jeg engang 
jeg nærede ønske om at kunne komu- 
nikere med min nabo via vandrørene. 

Morse-sproget lærte jeg, og sam¬ 
tidigt lærte jeg at min nabo abso¬ 
lut ikke kan morse. Nå, men ikke 
mere pjat. Programmet har to 
funktioner. Dels kan det skrive på 
skærmen hvad man morser, og dels 
kan det oversætte en skreven 
sætning til morse. Da der er brugt 
div. systemvariabler kan programmet 
ikke umiddelbart bruges på SVI, 
altså kun MSX. 

Af: Kim Andersen 


10 SCREENO,0,0:CLS:KEYOFF 
20 CLEAR1000,50000! 

30 DIMA$(127>,B$(90):A$=”l" 

40 HA=15 '..denne variabel bestem¬ 
mer med hvilken hastighed der mor¬ 
ses . 

50 FORT=2TO30:READA$(T):IFA$(T)=””T 
HENNEXTELSEB$(ASC(A$(T)))=BIN$(T):N 
EXT 

60 FORT=0TO14:READR,A$(R):B$(ASC(A$ 
(R)))= BIN$(R):NEXT 
70 LOCATEO,13:PRINTSTRING$(39,45); 
80 HH=HA:HA=0:BB=1:B$=”DU MORSER ME 
D SPACE.":GOSUB200:B$="TRYK ENTERFO 
R AT KOMME HEROP.”:GOSUB200:BB=0:HA 
=HH 

90 VPOKE560,62 

100 IFSTRIG(0)THENS=S+1:R=0:GOTO100 
110 C$=INKEY$:IFC$=CHR$(13)THENGOSU 
B200 


120 IFS=0THEN140 

130 IFS<HATHENA$=A$+”0“:BEEPELSEA$= 
A$+"l”:BEEP:BEEP:BEEP 
140 S=0: R=R+1: IFLEN (A$) >7THENA$= ”1 *' 
ELSEIFR=INT(HA*.5)THENPRINTA$(VAL(” 
&b”+A$) ) ; : A$=“l ** 

150 IF R=INT(HA#1.5)THENPRINT” ”;:A 
$=”1” 

160 IFCSRLIN=23THENFORT=14T023:LOCA 
TE0,T:PRINTSTRING$(39,32):NEXT:L0CA 
TE0,14 
170 GOTOIOO 

180 DATA E,T,I,A,N,M,S,U,R,W,D,K,G, 
0,H,V,F,,L,,P,J,B,X,C,Y,Z,Q, 

190 DATA47,1,39,2,35,3,33,4,32,5,48 
,6,56,7,60,8,62,9,63,0,64,. ,85,”, ”, 
76,9,115,!,97,- 

200 VPOKE560,32:VPOKEO,62:X=PEEK(63 
073!):Y=CSRLIN:N=0:M=2 
210 FORT=0TOl1:LOCATEO,T:PRINTSTRIN 
G$(39,32):NEXT 

220 IFBB=OTHENLOCATEO,0:LINEINPUTB$ 
:IFLEN<B$)>40THEN210ELSELOCATE0,2 
230 IFB$= ” "THEN300 
240 F0RE=1TOLEN(B$):C$=MID$(B$,E,1) 

:IFC$=" ”THENGOSUB310:F0RR=lTOHA^lO 
:NEXTR,E 

250 IFB$(ASC(C$))=”"THENNEXTE:G0T03 
00 

260 IFPEEK(63073!)>31THENPRINT 

270 LOCATEN,M:M=M+1:IFM=12THENM=2: N 

=N+10 

280 PRINTC$;” :F0RT=2T0LEN(B$(ASC 

(C$>)):F0RR=1T0HA*5:NEXT:IFMID$(B$( 
ASC(C$)),T,1> = ”0"THENPRINT”.:BEEP 
:NEXTELSEPRINT” »;:BEEP:BEEP:BEEP:N 
EXT 

290 FORR=1TOHA*10:NEXTR,E 

300 LOCATEX,Y:VPOKEO,32:VPOKE560,62 

:RETURN 

310 IFM=2THENRETURN 

320 IFM=11THENN=N+10:M=2ELSEM=M+1 

330 RETURN 
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SVENSKA SI DAN 


SVENSKA SIDAN 


Denna gång har vi tankt att gå ige- 
nom de nio olika registrerna i 
video processorn. Med dessa regis¬ 
ter kan du styra bla vilken skarm 
du vi 11 ha, storlek på en sprite, 
forstoringsgrad av en sprite och en 
del andra saker som vi hade tånkt 
att gå igenom i denna sista grafik¬ 
kurs . 

Innan vi borjar vi 11 jag påpeka for 
er som undrar att registerna kan du 
endast styra med OUT och IN. I nte 
med VPOKE och VPEEK. Orsaken till 
detta år att man redan kan styra 
detta med andra BASIC-kommandon 
som tex SCREEN. 

Vi borjar forst med en genomgång av 
registerna. 

Register 0: 

Detta register har inte så våligt 
många funktioner. Den enda viktiga 
år den som bit nummer 1 har. (Kom 
ihåg att når det gålier vilken bit 
och vilket register så borjar man 
alltid på noll och råknar uppåt. Så 
når det gåiler bit nummer ett så 
menar man den andra biten.) Denna 
bit ska vi gå igenom under register 
1 . 

Register 1: 

Bit 0: Sprite forstoring. Om man 
matar in en etta blir spriterna 
dubbelt så stora. En nol la innebår 
foljatkligen att spriten behåller 
sin norma la storlek. 

Bit 1: Sprite storlek. En etta år 
lika med en 16*16 sprite och en 
nolla en 8*8 sprite. 

Med bit 3 och 4 samt bit 1 i regis¬ 
ter noll styr du instållningen av 
hogupplosnings-, 1ågupplosnings- 
och textskårrn enligt nedanstående 
tabe 11. 


SCREEN 0 
SCREEN 1 
SCREEN 2 


Bit 3 Bit 4 Bit 1 

0 10 

0 0 1 

10 0 


Bit 5: Styr om man kan skicka en sk 
interrupt signal till video proces¬ 
sorn eller inte. Ett innebår att 
man kan skicka en interrupt signal 
till videoprocessorn. 

Bit 6: Skoter av och på stångning 
av skårmen. Dvs att du med denna 
bits hjålp kan slåcka skårmen under 
tiden du ritar tex en bild. Ett 
tånder skårmen och 0 slåcker den. 


Bit 7: Med denna kan du vålja om du 
vi 11 ha 4k eller 16k bildminne. 0 = 
4k och 1 = 16k. (Antligen lite 

omvåxling.) 

Register 2: Denna innehåller bara 
ett tal med vårs hjålp man kan 
råkna fram på vilken adress name 
tablen borjar på. 

Register 3: 

Samma som ovan fast denna gång gål- 
ler det colour table. 

Register 4: 

Pattern generatorn. 

Register 5: 

Sprite attribute table. 

Register 6: 

Sprite pattern generatorn. 

Register 7: 

Styr vilken bak- och forgrundsfårg 
du vi 11 ha på skårmen. De fyra 
minst signifikanta bitarna kontrol¬ 
lerar bakgrundsfårgen och de fyra 
mest signifikanta bitarna for¬ 
grundsf årgen. 
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Register 8: 

Bit 7: Denna bit såtts till ett då 
videoprocessorn har ritat ut en hel 
skårmbild. ^ 

Bit 6: Vid vissa tillfållen kan det 
b hånda att man har mer en fyra spri¬ 
tes i bredd på skårmen. Foljden av 
detta har nog dom fiesta råkat ut 
for. Nåmiigen att de spriter som 
har hogst spriteareanummer demole- 
ras på ett eller annat sått. Då 
detta intråffar, dvs då det år fem 
eller mer i bredd, såtts denna bit. 

Bit 5: Denna bit såtts till ett då 
två spriter kolliderat. 

Bit 0-4: Talar om vilket spriteare¬ 
anummer den femte spriten har då 
fem al ler f ler sprites år på en och 
samma linje på skårmen. 

Så var det slut på denna genomgång 
av de nio registerna och dårmed 
också slut på vår grafikskola. 

Innan jag s lutar ska jag beråtta 
hur man skriver till ett register. 

Studera foljande exempel: 

10 OUT &H81,&HF1 
20 OUT &H81,(7 OR &H80) 

Denna lilla rutin gor så att boks- 
tåverna blir vita på en svart bak¬ 
grund. Notera att i detta fall 
kommer informationen fore adressen 
samt att talet och adressen matas 
N ut på samma port. Notera också &H80 
som talar om att man vi 11 skriva 
till ett register. 

Denna gång har jag Magnus fått 
skriva eftersom Joakim gor sin 
vårnplikt. 

Sven om detta blev ett hastverk så 
hoppas jag att ni kan få ut någon 
information ur ovanstående. 

Tack for den får gången och må era 
ovånner forsoka gora ett program på 
TI 30. (En miniråknare utan prog¬ 
rammer ingsmoj 1igheter.) 


SFG PLAY AF 
LARS HANSEN 

1 'PROGRAM :SFG PLAY 

2 'FORMAL :SPILLE YK FRA BASIC 

3 'PROGRAMØR:LARS HANSEN 

4 ' 

5 'DENNE PROGRAMDEL LAVER DEN 

6 'NØDVENDIGE MASKINKODE FIL 

7 ' 

10 DATA F3,DB,A8,47,E6,C,7,7,4F,70, 
E6,CF,Bl,32,EB,DA,DB,A8,32,EC,DA,E6 
,C,1F,1F,4F,6,0,21,C1,FC,9,7E 
20 DATA B7,28,D,21,C5,FC,9,7E,E6,C, 
F6,80,Bl,4F,Bl,4F,3A,EC,DA,5F,E,0,6 
,0,21,C5,FC,9,56,21,C1,FC 
30 DATA 9,6,4,7E,B7,28,12,6,0,79,F, 
F,AB,E6,C0,AB,D3,A8,7A,E6,FC,B0,32, 
FF,FF,7B,E6,FC,Bl,D3,A8,C5 
40 DATA D5,CD,8F,DA,Dl,Cl,28,36,4,7 
8,FE,4,38,DB,20,10,79,F,F,AB,E6,CO, 
AB,D3,A8,7A,32,FF,FF,7B,D3,A8 
50 DATA C,79,FE,4,38,BO,21,C9,DA,CD 
,DC,DA,18,FE,21,C3,DA,11,80,0,6,6,1 
A,BE,CO,23,13,10,F9,C9,DB,A8 
60 DATA E6,3,32,ED,DA,CD,FA,DA,3E,E 

I, 32,C5,FF,3E,C9,32,C6,FF,21,75,F9, 

II, 76,F9,1,7F,1,36,0,ED,B0,C3 

70 DATA 0,DB,4D,43,48,46,4D,30,46,4 

D,20,55,6E,69,74,20,6E,6F,74,20,66, 

6F,75,6E,64,21,24,CD,FA,DA,7E,FE 

80 DATA 24,C8,E5,CD,A2,0,El,23,18,F 

4,0,0,0,F3,3A,EC,DA,47,3A,ED,DA,BO, 

D3,A8,C9,3A,EC,DA,D3,A8,C9,CD 

90 DATA EE,DA,3E,C9,32,9F,FD,11,0,D 

2,CD,A8,0,AF,32,32,DC,21,7,0,22,33, 

DC,CD,95,DB,3E,FF,32,32,DC,32 

100 DATA 30,DC,F3.3E,0,11,3,0,CD,99 

, 0,3E,1,CD,96,0,3E,B,6,0,CD,9C,0,F3 

,3E,14,32,F0,3F,AF,32,F1 

110 DATA 3F,3E,33,32,F1,3F,3E,D,1,0 

,0,CD,9C,0,3E,C9,32,9A,FD,21,B,DC,2 

2,A0,FD,3E,C3,32,9F,FD,CD,FA 

120 DATA DA,FB,C9,3E,0,6,1,11,80,DO 

,CD,9C,0,3E,A,6,1,11,80,81,CD,9C,0, 

3E,15,1,5,1,CD,9C,0,3E 

130 DATA 14,6,1,CD,9C,0,3E,13,1,FF, 

I, CD,9C,0,3E,FF,32,31,DC,C9,3A,32,D 

C, A7,20,A,3E,0,6,0,11,0 

140 DATA DO,CD,9C,0,3E,A,6,0,11,80, 
80,CD,9C,0,3A,32,DC,A7,20,9,3E,15 r E 

D, 4B,33,DC,CD,9C,0,3E,14,6 

150 DATA 0,CD,9C,0,3E,13,1,FF,0,CD, 
9C,0,CD,64,DB,C3,EF,DB,3E,0,1,0,81, 

II, 0,80,CD,96,0,3E,9,1 
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160 DATA 0,1,11,0,0,CD,9C,0,3E,FF,3 

2,30,DC,C9,3E,0,1,0,80,11,0,80,CD,9 

6,0,3E,9,1,0,0,11,0 

170 DATA 0,CD,9C,0,3E,FF,32,30,DC,C 

9,F3,DB,A8,32,2F,DC,CD,EE,DA,3A,3 0, 

DC,A7,CC,95,DB,3E,0,11,1,0,CD 

180 DATA 99,0,3E,1,CD,96,0,F3,3A,2F 

,DC,D3,A8,C9,0,0,0,FF,7,0,D 

1000 'LIGGER MASKINKODEN PA PLADS 

1010 FORA-&HDAOOTO&HDC35:READX$ 

1020 POKEA,VAL("&H"+X$)sNEXT 
1030 ' 

1040 'GEMMER MASKINKODEN SOM BINÆR 
FIL 

1050 BSAVE"SFG.BIN",&HDA0Q,&HDC35 


10 '************************* 

20 '* * 

30 '* SFG PLAY BY GENIUS * 

40 '* - LARS HANSEN - * 

50 ' * * 

60 '* SPIL DIT YK KEYBOARD * 

70 '* DIREKTE FRA BASIC * 

80 ' * * 

81 '* BRAGT AF JOHNNY B * 

82 '* SYNTAXEN 1988 * 

83 '* * 

gø <************************* 

100 ' 

110 IFPEEK(&HDA00)<>&HF3THENCLEAR20 
0,&HDOOO:BLOAD"SFG.BIN",R 
120 WIDTH40:CLS:PRINT" SFGPLA 

Y" 

130 PRINT:PRINT"1) Load voicebank" 
140 PRINT:PRINT"2) Vælg internal vo 
ice" 

150 PRINT:PRINT"3) V*lg loadet voic 

e 

160 A$-INPUT$(1):ONVAL(A$)GOSUB180, 

220,270 

170 GOTO120 

180 PRINT"Inde*t voicebankdiskette" 
;:A$-INPUT$(1) 

190 PRINT:FILES"*.vog":PRINT:INPUT" 
Filnavn";FI$ 

200 BLOADFI$,&HC000 
210 RETURN 

220 INPUT"Internal voice";A 

230 POKE&HDC33,A-l:POKE&HDC34.0:'SÆ 

T 

240 POKE6iHDC32,0:'INTERNAL VOICE 


250 POKE&HDC30,0:'SKIFT (OVER INTER 
RUPT) 

260 RETURN 

270 INPUT'Voicebankvoice";A 

280 AD%-&HD010:FORB*-(&HC020+(A-l)* 

64)TO(&HC020+(A-l)* 64+63):POKEADfc,P 

EEK(Bfc):AD%-AD%+1:NEXT 

290 POKESiHDC32,255:'Loadet voice 

300 POKE&HDC30,0:'SKIFT VOICE 

310 RETURN 

DENNE ANDEN DEL BRUGER S& 
MASKINKODE FILEN DU LAVEDE 
I PROGRAM DEL 1 
GODT LARS DU KAN BARE DET DER 

HEJ FRA JOHNNY 

, u 7 JIjwjwl 

ilennIG Norma °p a| Rubmiz 

9‘cAiMi<3 stan,jM ’ t 

Pfak$t / Plakat 2 

OVERSIGT OVER 
NLQ FRONTER 


Dsbba 

er 

ft: BOLD 

FOl 

/E 

Dette 

er 

A:BKD 

F02 

Æ 

Dette 

er 

USBilrøLES 

FOS 

£ 

Dette 

er 

AsBRDWAYE 

FM 

Æ 

Dette 

ER 

A: CAPS 

F 05 

Æ 

Dette 

er 

A:CIRCDS 

F06 

Æ 

Dette 

er 

A: CURVY 

F07 

m 

□et te 

er 

R : □□(I1PT5 

FØØ 

i£ 

□ebbe 

er 


FOS 

Æ 


<BS» 

R : ØKOCPSCQ 

uao 

Al 


<BGF> 


paa 

Al 

llette 

er 

AiFIITUKA 

F12 

Æ 

Dette 

er 

RtOLOUORN 

FIS 

JC 

©e + te 

er 

a: ©oEtaro: 

1FT4 

æ 

llette 

er 

AiKubyfut 

FIS 

Æ 

$ETTE 

GØ 


<» 8 

>/ 

Dette 

er 

A:HÅND 

FI 7 

Æ 

DDette 

er 

AiwmoDiPQinr 

FH8B 

Æ 

Dette 

er 

ntzcE 

F19 

K 

BBBHB 

aa 


»ara 

m 

Dette 

er 

A :ITALICP 

F21 

Æ 

DEttE 

EF 

ffusnEccnno 

FEE 

ff 

Dsbba 

»r 

AsBUTLXME 

FES 

IE 

J\erre 

eD 

A:pycc 

024 

C 
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‘Ln-bte- 

e't 


3=25 

Æ 

DfihLii 


AaSHBDlIU 

FSii 

J£ 

E (XX! C 

GE 

Eg fiiJijigg C 

□sa 

D 

(ØalHla 

ar 

od s s©Q = @(ynr 

(F2$ 

Æ 

Detbe 

er 

ft:5QUARE 

FE3 

Æ 

Dette 

er 

A: STD 

F30 

Æ 

Dette 

er 

A:STDL 

F31 

tt 

Dette 

er 

A:STDBBC 

F32 

Æ 

nette 

et 

F:THEFTRE 

F33 

fE 

Rette 

er 

A:WESTERN 

F3 4 

Æ 

IDEtttE 

ET 

IflsQllIRE 

F3S 

K 

Dette 

er 

A: BOLDI 

F56 

ff 

Dette 

er 

A!BOOKTYP 

F37 

[ 

Bette 

er 

AsBiDWAY 

f 3§ 

ti 

Bette 

er 

A : BKBVtAy S 

f 39 

II 

Dette 

er 

A:CENTURY 

F40 

Æ 

Dette 

■ r 

A: CDMPBLD 

F 4 f 

Æ 

Dette 

ar 

A: CDHPBLK 

F42 

[ 

Dette 

er 

A:COURIER 

F43 

Æ 

Bette 

er 


*44 

at 

□ et te 

er 

Pi: HITECH 

F£}5 

ft 

GXMflS 

G* 

A:MBULIs)W 

F4B 

<5 

Dette 

e r 

A: 1 SONORM 

F 4- 7 

£ 

Dette 

e r 

A:1 TAL ICC 

F H8 

S 

Dette 

er 

A:ITALICE 

Få 9 

£ 

Dette 

er 

A :ITALICQ 

FSO 

[ 

Dette 

e r 

A : 11 AL IC S 

F 5 l 

l 

ntitt 

t 1 


f 52 

£ 


er 

A: ©ODTILIIINIJL 

F53 

Æ 

Dette 

er 

A:PICA 

F54 

Æ 


»ir¬ 

&: mxm 

^55 

£ 

Dette 

er 

A:ROCKSTD 

F56 

ffi 

Dette 

e r 

ft : SQUftREC 

F 5 7 

£ 

Dette 

er 

fl:SQUflREE 

F58 

ff 

Dette 

er 

A:5QURREP 

F59 

Æ 

Dette 

e r 

ft : 5 Q U fl R E S 

F 6 0 

f 

Dette 

er 

A:STDTEST 

F61 

tt 

Dette 

er 

A:STDTYPE 

F62 

[ 

Dette 

er 

A:STDC 

F 63 

R 

Dette 

er 

A:STDE 

F61 

ffi 

Dette 

e r 

A i B T D S 

F b 5 

* 

Dette 

er 

ft s TALL 

F66 

Æ 

Dette 

er 

AsWESTi 

F 6 7 

Æ 


Hvis dCu Ccar eet Star prAetter ag DAsfc 
Statiæets fcacc a££e cCåsse sCsrAffter i 
t®LQ fellAve cCActe XHCL Spææier p& 32 K 
f ær Cccm Kr 200, - 

KacttaCst 
Lars Haetseet 
StatAæctsve} 6 
3390 HuetcCested 

citer JæDectcty B MusAfe 


ROMER TAL SVI 


XXXXXXXXXXXXXXXXXXXXXXXXX 
* X 
X Romer-tal X 
X * 

xxxxxxxxxxxxxxxxxxxxxxxxx 


to 
20 
30 
40 
50 
<60 
70 ' 

80 ' 

90 ONSTOPGOSUB590:STOPON 
100 SCREEN,0sLOCATE,,0:PRINT:PRINTT 
AB<3)"Tryk Caps-Lock 1 ’ 

110 A=PEEK<ikHFE38> 

120 IF A=32 THEN 140ELSE110 
130 ' 

140 Z*=SPACE*<5>:SCREEN lzCOLOR 4,1 
,1:CLS:LOCATE 80,20:PRINT Z*"Romert 
al " :LOCATE 38,80:COLOR 13:PRINT Z*" 
For SUI CCCXXUIII":C0L0R 14 
150 LOCATE 24, 130:PRINT Z*"BY CLAUS 
B. 25-03-1988" 

180 A3>="V10T25503DD#E04CC03E04CC03E 
04CCC 

170 B*="04CDD#ECDEE03B04DDCCC 
180 C$="03AGF#AA04CEDC03A04DDDD 
190 D*="04CDD#ECDEE 

200 PLAY A$:PLAY B*:PLAY A$:PLAY C* 
:PLAY A*:PLAY B$:PLAY D*:PLAY D*:PL 
AY B$ 

210 FOR 1=0 TO feHBB8:NEXT I 

220 SCREEN 0:LOCATE,,0 sNI DTH 39:SCR 

EEN,0:CLICKOFF:COLOR 5,1 

230 LOCATE 3,5:INPUT"Indtast et rom 

e r t a1”;A$ 

240 IF A$=""GOT0230 
250 FOR 1=1 TO LEN<A$) 

280 H*=MID*<A*,I,1> 

270 IF H$="M" OR H$="D" OR H$=”C" O 

R H*="L" OR H$="X" OR H$="U" OR H$= 

"I" THEN 290 

230 CLS:GOTO 230 

290 NEXT 

300 A*="-"+A* 

310 FOR A=2 TO LEN<A$> 

320 B*=MID*<A*,A,1) 

330 0=0 

340 IF B*="M"THEN U=1000 
350 IF B$="D"THEN V=500 
38 0 IF B$=" C'THEN V= 1 00 
370 IF B$= "L"THEN U=50 
330 IF B*="L>"THEN U=5 
390 IF B*="I"THEN U=1 
400 IF B*="X"THEN K>= 1 0 
410 IF 0=1 GOTO 450 
420 B*«MID*<A*,A-1, 1 > 

430 IF B$=CHR*<32> THEN U=0 

440 B=M:0=1:GOTO 340 

450 IF B>V THEN T=T+B-<UX2>:GOTO 47 

480 T=B+T 
470 - 

480 NEXT:CLS:A$=RIGHT$ < A$,LEN<A* >- 1 

490 LOCATE 5,1:PRINT "Romertal: "A* 
500 LOCATE 5,3:PRINT "Decimal :"T 
510 LOCATE 5,5:PRINT "Hex : "HE 

X1KT) 







- 16 - 


*-*-*"* ROMER TAL 8^/1 * AUTOLOADER MSX II •**■** 


520 LOCATE 5,7 s PRINT "bin : "BI 

N*CH 

530 LOCATE 5,9SPRINT "okt s "OC 

T*<T> 

540 PLAY"U9T255S9M820103AABBAADD" 
550 FOR 1=0 TO 1500:NEXT 
560 LOCATE 14,12sPRINT "Tryk <ENTER 
>" 

570 a*=input*< n 

580 IF A*=CHR*<kHD> THEN CLS*.T=0:GO 
TO 230 ELSE 570 
590 ' 

600 SCREEN0.1sLOCATE,,1 

610 C.OLOR 15,4,5: PLAY" t255s 13ffi450ag 

agabbb":DEFUSR=89 sA=USR< 0) 

620 POKEkHFA02,l 
630 END 



AUTOLOADER 
TIL MSX I I 

DENNE AUTOLOADER ER FRA JAPAN JEG 
HÅBER AT DU KAN FA FORNØJELSE AF 
DEN PA DIN MSX 2 MASKINE HEJ 

10 > ********************* 

20 ' * AUTOLOADER * 

30 ' * MSX 2 * 

40 ' * FRA JAPAN * 

50 ' * * 

60 ' * MED BLINK OG DET * 

70 ' * DER GYLLE Hi * 

80 ' * FROM ME TO YOU * 

90 ' * * 

100 ' * JOHNNY B MUSIK * 

110 '* SYNTAXEN 88 * 

120 >********************* 


130 ' 

140 1 INIT 

150 CLEAR 1500, &HC300: SCREEN0: WIDTH 
80: CLS 

160 KEY OFF:DEFINT A-Z 
170 DEF FNC$ (F$) -LEFT$ (F$+SPACE$ (12 
), 12) 

180 DIM NA$ (115) , ST(115) 

190 FOR V-&H8Q0 TO &HA3F: VPOKE V, 0: 
NEXT: ' blink table clear 
200 VDP(14)~&H11: VDP(13)-&H81: ' set 
blink 

210 RESTORE 250 

220 FOR N-O TO 5 

230 READ Bl (N) , Dl (N) , B2 (N) , D2 (N) 

240 NEXT 

250 DATA 0, &hFF, 1 , &HF0,1, &H07, 3, &H8 
0,3 , &H3F, 4, &hFC 

260 DATA 4, &H01,6, &HE0, 6, & HOF, 7, &HF 
F, 8, &H7F, 9, &HF8 

270 XX-O:YY-2:X9-0:Y9-2:LOCA TE, , 0 
280 GOSUB 1090: ' set command 
290 ' main 
300 CLS 

310 LOCATE 0, 0:PRINT' >> LOADER for 
MSX 2 ver 1.1 <<" 

320 LOCATE 0,Y+1:PRINT';STRING$(7 
8 

330 LOCATE 0,21:PRINT'<< Wait a mom 
ent »" 

340 LOCATE 0, 22:PRINT' <ESC> to End 
<RETURN> to Execute" 

350 ' set DMA address 

360 VI -&HC5 : V2-&H0: FC-&H1 A: ' DMA- 

&HC500 

370 GOSUB 1270:A-USR(O) 

380 ' read file name 1 

390 POKE &HC300, ASC("A" ) -&H40: POKE 

&HC30C, 0 

400 RESTORE 440 

410 FOR I- &HC301 TO &HC30B 

420 READ D$:POKE I,ASC(D$) 

430 NEXT I 

440 DATA " ?" , " ?" , " ?" , " ?" , " ?" , " ?" , " ? 

450 DATA "B","A","S" 

460 VI -&HC3 : V2-&H0: FC-&H11 
470 GOSUB 1270:A-USR(O) 

480 IF PEEK (&HC430) -&HFF THEN PRINT 
"No Fi les i i" : LOCA TE, , 0 :VDP (14)-0 :E 
ND 

490 NN-0:NA$-'"' 

500 FOR I-&HC501 TO &HC50B 
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510 NA$-NA$+CHR$(PEEK(I)) 

520 NEXT 

530 IF MID$(NA$, 9, 3)<>" " THENNA 

$-LEFT$(NA$, 8) +" . " +RIGHT$(NA$, 3) 

540 NA$ (NN) -NA$: ST(NN) -1:NN-NN+1 
550 ' read file namø 2 
560 FC-&H12 

570 GOSUB 1270:A m USR(0) 

580 IF PEEK(&HC430)-&HFF THEN GOTO 
660 

590 NAS-"" 

600 FOR I-&HC501 TO &HC50B 
610 NA$-NA$+CHR$(PEEK(I)) 

620 NEXT 

630 IF MID$(NA$,9,3)<>" " THEN NA 

$-LEFT$(NA$, 8) +" . " +RIGHT$ (NA$, 3) 

640 NA$ (NN) -NA$: ST(NN) -1:NN-NN+1 
650 GOTO 550 
660 ' main 

670 X-0:Y-2:GOSUB 1040:GOSUB 990 
680 FOR 1-0 TO NN-1 
690 LOCATE X, Y:PRINTNA$(I) :C-Y 
700 X-X+13: IF X>65 THEN X-0:Y-Y+1 
710 NEXT I 

720 LOCATE 0, C+l:PRINT' +" ; STRING$ (7 
8, 

730 LOCATE 0,21:PRINT STRING$(30, " 


") 

740 K$-INKEY$ 

750 NN- ( YY-2) *6+XX 

760 IF K$-CHR$(28) THEN X-l :Y-0: GOT 

0 830 

770 IF K$-CHR$ (29) THEN X-1:Y-0:GO 
TO 830 

780 IF K$-CHR$ (30) THEN X-0:Y—1:G0 
TO 830 

790 IF K$-CHR$(31) THEN X-0:Y-1:GOT 
0 830 

800 IF K$-CHR$(27) THEN LOCATE, , 0: V 

DP (14)-0: CLS: END 

810 IF K$-CHR$ (13) THEN GOTO 910 

820 GOTO 740 

830 ' 

840 X9-XX: Y9-YY: XX-XX+X: YY-YY+Y:X-0 


: Y-0 

850 IF XX<0 THEN XX-5:YY-YY-1 
860 IF XX>5 THEN XX-0:YY-YY+1 
870 IF YY<2 THEN YY-C 
880 IF YY>C THEN YY-2 
890 GOSUB 1040:GOSUB 990 
900 GOTO 740 
910 ' run 

920 NN- ( YY-2) *6+XX: BEEP 

930 IF ST(NN)< >1 THEN GOTO 740 

940 F$-NA$ (NN) :VDP(14) -&HFO 


950 LOCATE 40, 0, 0:PRINT'RUN < " ;F$; 

" > M 

960 FOR A-0 TO 1000:NEXT 
970 VDP(14) -0: CLS: RUN SS$+F$ 

980 END 

990 ' blink on 

1000 DD- VPEEK(&H800+YY*10+B1 (XX)): V 
POKE &H800+YY* 10+B1 (XX) , Dl (XX) OR D 
D 

1010 DD- VPEEK (&H800+YY*10+B2 (XX) ) : V 
POKE &H800+YY*10+B2 (XX) , D2 (XX) OR D 
D 

1020 IF XX-1 OR XX-3 THEN VPOKE &H8 
00+YY*l 0+B1 (XX) +1, &HFF 
1030 RETURN 
1040 • blink off 

1050 DD-VPEEK(&H800+Y9*10+B1 (X9) ) : V 
POKE &H800+Y9*10+B1 (X9) ,NOT (D1(X9) 
) AND DD 

1060 DD-VPEEK(&H800+Y9 *10+B2 (X9) ) : V 
POKE &H800+Y9 *10+B2 (X9), NOT (D2(X9) 
) AND DD 

1070 IF X9-1 OR X9-3 THEN VPOKE &H8 

00+Y9*10+Bl (X9) +1, &H0 

1080 RETURN 

1090 ' system call 

1100 RESTORE 1150 

1110 FOR 1-0 TO 30 

1120 READ N 

1130 POKE &HC400+I ,N 

1140 NEXT 

1150 DATA &hll,&hOO,&hOO 

1160 DATA &hOE,&hOO 

1170 DATA &hCD, &h7D, &hF3 

1180. DATA &h32,&h30,&hC4 : 1 LD( 

C430h),A 

1190 DATA &hED, &h43, &h31, &hC4: ' LD( 
C431h),BC 

1200 DATA &hED, &h53, &h33, &hC4: 1 LD( 
C433H), DE 

1210 DATA &h22,&h35,&hc4 LD( 

C435H), HL 

1220 DATA &hDD, &h22, &h37, &hC4: 1 LD( 
C437H), IX 

1230 DATA &hFD,&h22,&h39,&hC4: 1 LD( 

D$39H),IY 

1240 DATA &hC9 

1250 DEFUSR-&HC400 

1260 RETURN 

1270 ' set work 

1280 POKE &HC402, VI 

1290 POKE &HC401, V2 

1300 POKE &HC404, FC 

1310 RETURN 

1320 ' bot tom 
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LØST OG FAST MED JOHNNY B GOOD 

tf################*#*########## 

YAMAHA har i sommer lanceret en ny 
Musik Computer som er blevet 

præsenteret for offentligheden i USA 
Computeren hedder Cl og er en MS 
DOS Compatible IBM Standard. 

Hoved CPU er en (80286) chip med 
variable takt freq og bliver 

understøttet med en chip (DMA 

Controller) til Ramstyring. 

Indbygget er en LC Skærm med 
opløsningen 649 * 400 punkter. 
Tastaturet arbejder både med alm IBM 
tegnsæt samt specielle Musikalske 
tegn, til Musisk anvendelse er 
endvidere to skyde potmetre som kan 
styre forskellige ting såsom Tempo, 
Vol urne, Pitchbend etc. 

Af ydre tilslutninger forefindes 
Monitor tilslutning ,CRT tilslutning 
Parallel printerport, + 2 Serielle 
rs-232 tilslutninger såvel som Midi 
2 * Midi In, 1 * Midi Through, og 

8 * Midi Out + styresystemet SMPTE 

In/Out. 

Prisen for denne tingest bliver 
desværre nok skyhøj hvis jeg ellers 
kender YAMAHA ret. 

Alle numre fra Composer II og Midi 
Recorder kan uden videre indlæses i 
TWENTY-FOUR fra Steinberg et program 
til Atari Computeren, Fantastisk. 

Hvis nogen er interesseret kan jeg 
levere en tegning til Midi Out 
direkte fra Joystick Porten, den er 
simpel at bygge, det dyreste er 
faktisk stikkene og i materialet 
står et sådan Interface i ca Kr 40, - 
endvidere har jeg et program fra 
Japan der kan sende Data ud via 
dette stik til dit Midi Instrument, 
eller Computer nr 2, Der behøves 
INTET SFG modul det kan klares af 
enhver MSX med en joystick port. 
Interesserede kan sende mig en 
frankeret Svarkuvert vedlagt en 
formatteret disk og du er på vej. 


Dette fører naturligvis videre idet 
en god ven af mig Per i Åbenrå er 
ved at bygge mig et Midi In/Out 
interface til Joystick porten, det 
er faktisk færdigt blot mangler han 
nogle Opto Kopiere som er svære at 
skaffe. Når den er færdigt vil I få 
et Tilbud på et sådant device og det 
bliver ikke dyrt. 

Lars vil naturligrvis også få et 
sådant Interface og han har lovet at 
udvide Midi lo eller tilpasse det så 
det kan køre med dette Interface, 
det betyder at i alle kan komme til 
at køre Midi uden at investere i et 
SFG Modul og det lyder jo spændende, 
foruden at køre med Midi 
Instrumenter kan Midi lo også 
overføre program Data Basic og 
Maskinkode fra en computer til en 
anden og det er jo smart hvis man 
har 2 Computere og kun 1 
diskstation. 

Lars tilbyder nu at du GRATIS kan få 
en version af MIDI 10 på prøve, 
foreløbig kun relevant for SFG 
brugere, der medfølger små 

demoprogrammer i Basic som 
demonstrerer hvad Midi lo kan, Den 
mindste version af Midi lo kan køre 
på Yamaha CX5M uden Ramudvidelse, så 
er du interesseret kan du blot sende 
en frankeret svarkuvert vedlagt 
Di sk/Bånd til mig og du er i gang. 
Hvis det er sagen for dig kan du så 
blive reg, bruger det koster kr 
200,- dette giver dig adgang til 
Midi lo bib som indeholder Basic 
programmeringer til Midi lo, et 
stort Manual over Midi lo som er en 
række Call Kommandoer ligesom Makro 
+ den sidste nye opdatering af Midi 
lo, du får derefter besked om hver 
opdatering og oversigt over Midi lo 
Bib tilføjelser og ved at sende en 
Disk + Porto er opdatering GRATIS. 
Den sidste version af Midi lo er 
version nr. 3.0 og det er det 
største MC program Lars endnu har 
skrevet ca 5.5 K alene Gen filen 
fylder over 50 K så der ligger et 
stort arbejde bag dette program. 
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Dette tilbud kommer også til et 
gælde når det nye Interface bliver 
færdigt og Lars får tilpasset Midi 
lo dertil. 

Hvad er Midi lo. Jo det er et 
program der udvider Basic med en 
række Call Kommandoer således at du 
kan modtage data via Midi In direkte 
til Ram eller sende Data via Midi 
Out direkte fra Ram. Version 3 har 
endvidere Memory styring til MSX 2 
dvs Ram der kan lægges Data i bliver 
udvidet på min Sony F. eks har jeg 
Midi Ram på over 190 K. 

Ang S Ram kredse så kan jeg fortælle 
at lige syd for grænsen koster en 32 
K kreds DM 20,- dette gør det jo 
billigere hvis man vil bygge en 64K 
Ramudvidelse. Per Åbenrå vil godt 
bygge nogle hvis I er interesseret. 
Så derfor kontakt mig desangående 
idet der skal være nogle stykker for 
at det kan betale sig idet et Foto 
print er ret dyrt at få lavet. 

Den tyske Expert klub synger på 
sidste vers, der kommer 1 blad mere 
og så er det slut. 

Jeg venter i øjeblikket på et nyt 
bånd fra Runi Dam færøerne og det 
bliver spændende at høre hvad han 
har fået bikset sammen denne gang, 
Runi er medejer af et lille firma på 
Færøerne som udlejer Instrumenter 
til Optrædende som gæster Færøerne 
for at give Koncert, dette giver jo 
Runi adgang til en masse lækre 
instrumenter. 

Hvis nogen er interesseret i at købe 
nye instrumenter til billige priser 
så har jeg en adresse og et Tlf nr. 
i Sønderjylland. 

Vedkommende kan skaffe hjem fra 
Tyskland (Privatimport i dit navn) 
du kan på alle Instrumenter spare en 
del, tit over 30 % i forhold til den 
Danske pris og det er fuldt lovligt 
du betaler Dansk Moms og der er fuld 
Garanti på Instrumenterne. 

Jeg har selv købt et af de nye 
Yamaha HX Orgler og sparet over 
40.000 kr. 


Jeg har fornylig fået kontakt med en 
Japansk fyr og håber at der kommer 
nogle spændende ting hjem, forhåbent 
ligt også noget du kan få gieede af, 
som alle ved er Japan jo et MSX 
S1 araffen Land. 

Så vidt jeg ved har Knud EskiIdsen 
Esbjerg stadig SFG Moduler både 01 
og 05 på lager. 

Fimaet har tlf 05 123022 

Hvis du mangler et Yamaha program 
der ikke kan skaffes mere, så vil 
jeg godt hjælpe dig med en disk 
version, Det finder jeg naturligt da 
Yamaha er fuldkommen ligeglade med 
os MSX folk. Men betingelsen er 
naturligvis at det Originale 
Cartridge ikke mere kan skaffes. 

Ok disse var ordene kan I hygge Jer 
til vi næste gang mødes i min 
spalte. 

Med venlig hilsen fra det Jydske 

Johnny B Musik 
Lindevænget 237 
8600 Silkeborg 
tlf. 06 826698 

OBS skulle Jeres vej falde forbi så 
slå på telefonen, jeg har altid en 
kop kaffe på kanden og meget af 
interesse at vise frem. 
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BINGO SVI 


100 POKE fc<HFE38,32:POKE kHFA02,0:PO 
KE &HFA05,0 ’ 

110 C0L0R 13,1,1zSCREEN lzPSET <30, 
30),15:DRAW“ri95d1311195ul31":PAINT 
<31,31),15:A*=SPACE*<9) 

120 E9?..I = P.T0 3 s PR I NT : PR I NT: NEXT 

■ ■ n hi h 


130 

GOSUB 

860 

140 

PRINT 

A*"H 

Wo 

GOSUB 

860 

160 

PRINT 

A*"l 

17? 

GOSUB 

860 

180 

PRINT 

A$ "■ 

190 

GOSUB 

860 

200 

PRINT 

A4"l 

210 

GOSUB 

860 

220 

PRINT 

A*"M 

?5o 

GOSUB 

860 

240 

COLOR 

8 

250 

GOSUB 

860 

260 

PRINT 


270 

PRINT 

A4" | 

Ho 

GOSUB 

860 

290 

COLOR 

9 

300 

PRINT 


310 

PRINT 

A*" 


320 GOSUB860 
330 COLOR 10 
340 PRINT _ 

350 print a-*" hhb 

360 GOSUB860 

370 LOCATE <60, 180:COLOR 12:PRINT"Pr 
ess entep to continue 
380 GOSUB860 
390 S0UND 8,0 

400 E$=INKEY$:IF E*=""THEN 400 
410 IF E*OCHR*<&HD) THEN BEEP:GOTO 
370 

420 CLS:PRINT 

430 ' Bingo Numbers 

440 N*=" " 

450 PRINT A*"Bingo Numbers 1 ': PRINT 
4<60 G0SUB 870 

470 PRINT A$"How Many Numbers are t 
here:"; 

480 SOUND8.0 
490 E$=INPUT$<1) 

500 IF E*=CHR$<13) THEM GOTO 5<60 
510 IF E*>"9" OR E*<"0" THEN BEEP:G 
OTO 490 
520 H*=H*+E* 

530 PRINT E*; 

540 IF LEN<H$)>1 THEN GOTO 5<60 

550 GOTO 490 

560 ' The Program 

570 " 

580 E=UAL< H$) 

590 DIN A<E) 

600 CLS 
610 G=0 

620 LOCATE 0,0:IF G=E THEM GOTO 740 


630 PRINT A$ ft Press a key for next n 
umber" 

640 SGUND 8,0 

650 EU>=INPUT*< 1) :CLS 

660 G=G+1 

670 X=INT< RND<-TIME)XE+1) 

680 IF A<X) = 1 THEN 670 
690 A<X)=1 
700 BEEP 

710 LOCATE 0,24:PRINT A*"Round nr." 
G 

720 LOCATE 0,40:PRINT A*"The last n 
umber:"X 

730 PRINT:GOTO 620 

740 FOR K=0 TO 6:PRINT:GOSUB 870:NE 
XT 

750 PRINT A$"Press To":GOSUB 870 
760 PRINT:PRINT A*" Esc Stop":GO 
SUB 870 

770 PRINT:PRINT A*"Enter Run":SO 
UND 8.0 

780 Ei=INPUT*<i) 

790 IF E4=CHR4<27) GOTO 820 
800 IF E4=CHR4<13> THEN RUN 
810 BEEP-.GOTO 780 

820 COLOR 15,4,5:SCREEN 0,1:PLAY"t2 
55s13m450ababaddd" 

830 POKE &HFE38,0:POKE &HFA02,1:POK 

E &HFA05,255 

840 DEFUsR=89:A=USR< 0) 

850 END 

86 0 UR=UR+1:BU=BV+.5+RND<-TIME) 

870 SOUND 0, 132+ABS<UR+BU-RND<-TIME 
)) 

88 0 SOUND 7,62:SOUND 8,10:RETURN 


KASSETTE OMSLAG 
TIL SVI 

10 CLEAR 1000 

20 COLOR1,7:SCREEN0.0 :LOCATE,,0:GO 
T040 

30 L0CATEX,Y:PRINTT4:RETURN 

40 X=8:Y=6:T4="X XXXXXXXXX 

XXX" 

50 GOSUB 30 
60 Y=7:T4="X 
X" 

70 GOSUB 30 

80 Y=8:T*="X PRINTER PROGRAM TIL 
X" 

90 GOSUB 30 
100 Y=9:T*="X 
X" 

110 GOSUB 30 

120 Y=10:T4="X KASSETTE-OMSLAG 

X* 

130 GOSUB 30 
140 Y=11:T*=“X 
X" 

150 GOSUB 30 
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160 Y=12:T*="* SKREVET TIL SVI 
X" 

170 GOSUB 30 
180 Y=13:T*="X 
X" 

190 GOSUB 30 

200 Y=14:T*="X AF LARS OLSEN 

X" 

210 GOSUB 30 
220 Y=15:T*="X 
X" 

230 GOSUB 30 

240 Y=16:T*="X XXXXXXXXXX 
X X" 

250 GOSUB 30 
260 F0RY=1TO1000:NEXT 
270 REM PRINTER SETOP 
275 Q*=CHR*<42) 

280 X*=CHR$<16) 

290 D*=CHR*<14) 

300 S*=CHR*<15) 

310 L*="-- 

320 REM INDTAST TEXT FOR RYG 
330 : 

340 CLS 

350 L0CATE8.11.1:INPUT"INDTAST BAAN 
D NR."!N* 

360 IF VAL <N$) > 99 OR VAL <N*> < 

1 THEN L0CATE8.11:PRINT" 

":GOT0350 

370 IF LEN<N$)>1THENN*<1)=LEFT*<N*, 
1):N*<2)=RIGHT*<N*) 

380 IF LEN<N*)=1THENN*<1)=N*:N*<2)= 

390 LOCATE 4.20.0:PRINT"OK TAST "CH 

R$< 27)"d""ENTER"CHR$< 27)"q"“ / NYT 

NR. TAST "CHR$< 27) "p" "N"CHR$<27) "q" 

400 A*=INKEY*:IFA*= B,, THEN400 

410 IF ASC<A$)=13THEN440 

420 IFA*=”N”THENLOCATE26,2 0:PRINT■ 

”:GOT0340 
430 GOT0400 
440 CLS 

450 LOCATE 9.9:PRINT"TESKT TIL KASS 
ETTENS RYG" 

460 LOCATE11.11:PRINT"MAX. 13 KARAK 
TERER" 

470 L0CATE9,15.1:INPUT P* 

480 IFLEN<P$)>13THENL0CATE11,15:PRI 
NTSTRING*<LEN<P*).32):P*="":GOT0470 
490 IFP*=""THENP*="SPECTRAVIDEO":LO 
CATE11.15:PRINTP* 

500 LOCATE 4.20.0:PRINT"OK TAST "CH 
R*<27)"D""ENTER"CHR*<27)"q"" / NYT 
NR. TAST "CHR*<27)"p""N B CHR*<27)"q" 


510 A*=INKEY*:IFA*=""THEN510 
52 0 IF ASC<A$)=13THEN550 
530 I FA$=" N M THENP*= " " : G0T044 0 
540 GOT0510 
550 DIMP*<13).A$< 40) 

560 K=13-LEN<P*) 

570 FORA=LEN<P$)+ KTOK+1STEP-1 
580 P*<A)=MID*<P*.<A-K),1) 

590 NEXT 

600 F0RA=KT01STEP-1 
610 P*<A)="X" 

620 NEXT 

630 P*<K)=" B 

631 CLS:L0CATE8.8:PRINT"TEKSTEN MAA 
H0JST VAERE" 

632 L0CATE8.10:PRINT"20 KAREKTERER 
IALT MED" 

633 L0CATE8.12:PRINT"TAELLER NUMRE 

634 L0CATE8.15:PRINT"SIDSTE KAREKTE 
R ER MAERKET":L0CATE8,17:PRINT"MED 
EN PIL I OVERSKRIFTEN" 

635 FORY=1T02000:NEXT 
640 : 

650 REM INDTAST TEKST <LIN) 

660 A=l:GOSUB 1170 
680 LOCATE..1 
690 FORA=1T040 

700 IFA>20THENB=A-20:ELSEB=A 
710 LOCATE12.B:INPUTA^(A) 

715 IFLEN<A*<A))>20THENGOSUB2000 
720 IFA=2OORA=4 0THENGOSUB735:GOSUB1 
170 

730 NEXT 

735 LOCATE1.22:IFA=20THENPRINT"TAST 
NR. FOR RETTELSE/"CHR$<27)"d""X B CH 
R$< 27)"q"" FOR FLERE ":ELSEPRINT" 
TAST NR. FOR RETTELSE/"CHR$ < 27)"p"" 
X"CHR*<27)"q""F0R UDSKRIFT" 

740 LOCATEl f 21.l*F*=""sINPUTF« 

750 IFF$="X"ANDA=2 0THENRETURN 
760 IFF*="X"ANDA=40THEN830 
770 IFVAL<F$)<10RVAL<F*)>40THENLOCA 
TE2.21-.PRINT" ":F*="" 

:GOT0740 

780 IFVAL<F*XA-190RVAL<F*)>ATHEN81 
0 

790 IF VAL<F*)>20THENX=VAL<F*)-20:E 
LSEX=VAL<F*) 

800 LOCATE12.X:A$<VAL<F$)> = "":INPUT 
A*<VAL<F*)) 

810 L0CATE2.21:PRINT" 

820 GOTO740 

830 REM PRINTEER UDSKRIFT 
840 LOCATE..0 
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850 lprintl*;l« 

840 LPRINTX«"00"JQ«JX«"12"JQ«;X«"17 
"JQ«JX*"43"JQ*JX«"44";Q« 

870 LPRINTX«"00";Q«;X«"12"}Q«;D«JX« 
" 14N" iS«;X«" 17" !Q«JX«"20" JA«< 1)JX«" 
43";G«JX*"44"JA«<21);X«"44"JQ« 

880 LPRINTX«" 00";Q«;X«"12"JQ«;D«5X« 
"14R";S«;X«"17"jQ«;X«"20"JA«<2);X«" 
43";Q«jX«"44"JA«<22)JX«"44"JQ« 

890 LPRINTX«"00"JQ«JX«"12"JQ«;X«"17 
"JQ«JX«"20"JA«< 3)JX«"43“;0«JX«"44"J 
A*<23>JX«"44"JQ« 

900 LPRINTX«"00"jQ«;X«"12 “;Q«jD«jX« 
"14"jN«<1>JS«JX«"17"JQ«;X«"20"?A«<4 
)?X«"43";Q«; 

910 LPRINTX«"44";A«<24)JX«"44"JQ« 
920 LPRINTX«"00"jQ«;X«"12"JQ«JD«;X« 
"14"JN«<2)JS«JX«"17"JQ«JX«"20";A«<5 
)JX«"43"JG«J 

930 LPRINTX«"44"JA«<25)JX«"44";Q« 
940 LPRINTX«"00";Q«jX«"12"JQ«JX«"17 
"}Q«;X«"20";A«<4);X«"43 "jg«;X«"44"; 
A«<24)JX«"44";Q« 

950 LPRINTX«"00"SQ«;X«"12"JG«JD«JX« 
"14*"JS«;X«°17"}Q«;X«"20”}A«<7)JX«" 
43"JQ«;X«"44"JA«< 27)JX«"44"JQ« 

940 LPRINTX«"00";Q«JX«"12"JQ«JD«JX« 
"14*"5S«?X«"17"5Q«;X«"20"JA«<8)JX«“ 
43" ;Q«jX«"44" JA«<28) JX«"44" JQ« 

970 LPRINTX«"00";Q«;X«"12"JG«JD«;X« 
"14"JP«<1);S«JX«"17"JQ«}X«"20"}A«<9 
)JX«"43"JQ«JX«"44"}A«<29)JX«"44"JQ« 
980 LPRINTX«"00"jG«?X«"12"}Q«;D«;X« 
"14";P«<2);s«;x«“17 "jq«;x«"20"ja«< l 
0)JX«"43"!G«JX«"44"JA«<30)JX«"44"JQ 
« 

990 LPRINTX«"00";Q«JX«"12"JQ«JD«JX« 
"14"JP«<3) JS«JX«"17"JQ«}X«"20"}A«<1 
1);X«"43"JQ«JX«"44"SA«<31)JX«"44"JQ 
« 

1000 LPRINTX«"00" ;Q«jX«" 12" }G«;D«JX 
«"14"JP«<4 )js«jx«"17";Q«JX«"20"JA«< 

12) SX«*43"JQ«;X«"44";A«<32)JX«"44"; 
G* 

•1010 LPRINTX«" 00" JQ«JX«" 12" ;q«5D«jx 
«" 14“ JP«<5) JS«5X« U 17" ;Q«JX«"20" }A«< 

13) JX«"43" !Q«JX«"44" *,A«<33) JX«"44" J 
G* 

1020 LPRINTX«*00";Q«;X«"12"}Q«;D«JX 
«" 14"«P« < 4)JS«!X«"17"}Q«JX«"20"JA«< 

14) JX«"43" iQ«;X«"44" !A«<34) JX«"44" J 
G* 

1030 LPRINTX«"00"JQ«;X«"12"JG«JD«JX 
«" 14" JP«<7) JS«JX«" 17" JQ«JX«"20" JA«< 

15) JX«"43"$ Q« JX«"44";A«<35)JX«"44"J 
Q« 


1040 LPRINTX«"00"JQ«JX«"12"JQ«JD«JX 
« u 14" JP«<8) JS«JX«“ 17" JQ*5X*"20" JA«< 
14)jX«"43"}G«JX«"44"JA*<34)JX«"44"J 
Q* 

1050 LPRINTX«"00"fQ*;X*"12"JQ«?D«}X 
«" 14"J P«< 9);S«JX«"17"}Q«JX«"20"}A«< 
17)JX«"43"5Q«;X«"44"JA«<37)JX«"44"J 
Q« 

1040 LPRINTX«"00";G*;X*"12"JQ«JD«JX 
«"14"5P«<10);s«;x«"17"J Q« J X«"20";A« 
<18)*X«"43"5G«;X«"44";A«<38)JX«"44" 
!Q« 

1070 LPRINTX« 11 00" ;G«JX«" 12" JQ«JD«JX 
«"14"!P«<11)!S«JX«"17"?Q«JX«"20"JA« 
<19);x«"43”;Q«;X«"44"JA«<39)»X«"44" 

* Q« 

1080 LPRINTX«"00";Q«;X«"12"JQ«JD«JX 
«"14"JP«<12)JS«JX«"17"J Q« J X«"20"JA« 
<20)JX*"43"JG«JX«"44";A«<40)JX«"44" 

;q« 

1090 LPRINTX*"00"JQ«JX«"12"JQ«JD«JX 
*"14"JP«<13)JS«JX«"17"JQ«JX«"43";Q« 
;x«"44"JQ« 

1100 LPRINTX«"00"J G« JX«"12"}Q«JD«;X 
«"14"JS«JX« U 17";Q«JX«"43"JQ«JX«"64" 
JQ« 

1110 LPRINTL« J L« 

1120 LPRINT:LPRINT:LPRINT 
1130 CLS:LOCATE 2,11:PRINT”QNSKES F 
LERE KASSETTE OMSLAG TAST 

J FOR JA ELLER N FOR NEJ":A«=INPUT 

«< 1 ) 

1140 IFA«="J"ORA«="j"THENRUN270 
1150 IFA«="N"ORA«=”n"THENCOLOR 15,4 
,5:SCREENO,1:END 
1 140 END 

1170 CLS s PRINT"* * * * INDTASTNING 
AF TEKST * "+CHR«<215) +" * *" 

1180 FORB=1T020 

1190 Y=B:LOCATE1,Y 

1200 IFA+B>1OTHENLOCATEO,Y 

1210 IFA<20THEN N =A-1ELSEN=A 

1220 PRINTN+B"LINIE s" 

1230 NEXT 
1250 RETURN 

2000 LOCATE12.BsPRINTSTRING«<27,32) 
2010 LOCATE12.BSPRINT"TEKST FOR LAN 
G" 

2020 FORW=1T0500 sNEXT 

2030 LOCATE12.B:PRINTSTRING«<25,32) 

2040 RETURN716 
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*-*-■** SVI B1B ■*•*** 




Liste af programtitler 
i SVIBIB : 


©V9 □ El □ E> 

SVI BIB er KUN til SVI 318-328 

SVIBIBS’s POST GIRONR. er: 

4077385 


Nyttige programmer : 

Database , Editor , Hushold ,Matte, 
Mc scroll , Ramdis , Rentereg , 
Rulleteks , Screen Rig , Sdump.rnc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn. , Periode 


Bestilling af programmer gøres på 
postgiro hvorpå der skrives hvilke 
programmer du ønsker,samt om du vil 
have disk eller bånd. 

Husk også at skrive din egen adr. 
tydeligt helst BLOKBQGSIAyEB..- 


PRISER 

Bånd - 25kr. 
5.25" Disk - 25kr. 
Pris pr. program - iOkr. 
Pris pr. programpakke - 15kr. 
Udlistning af program - 5kr. 


Programpakkerne er lavet på den 
måde at man loader alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp af en meny 
hvilket program man ønsker at køre 
derefter kan man stoppe og vende 
tilbage til menyen ovs.ovs. 

HUSK når I bestiller programpakker 
at skrive hvilken katarogi I 
ønsker det pågældende nr. fra. 

Programmerne bestilles hos: 

Per Underlien 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
SVIBIB sker på samme adr. 

Det er jo sådan at vi NU GIVER 
2 bånd eller 
5 5.25" disk . 

For de programmer der optages' i 
SVI BIB. 

Hilsen Per 


Spil : 

Aladdin , Bovla, Bjerg, Darts, 
Death, Diktator, Frans, Hell, 
Kai aha. Skyd nu, Oil 

Spil pakker : 


Nr. 1 : Male , Pyramide , Labyrant 
Nr.' 2 : Pusle , Attack , Roulette 
Nr. 3 : Flight , Sur , War 
Nr. 4 : Mons , Hopper , Star 

Nr. 5 : Maori , Myre , Slange 

Nr. 6 : Robot , Pengo , Snowbal1 
Nr. 7 : Danmark , Frogger 
Nr. 8 : Skyttepro , Lemona 

Musik pakker : 

Nr. 1 : Rock musik 9 numre 

Nr. 2 : Rock musik 9 numre 

Nr. 3 : Musik 9 numre 

Nr. 4 : Lyd Kim , Sound Kim , Orgel 


Andet pakker : 

Nr. 1 : Rio , Lys , Ghost , Børge 
Symtri , Grafik 


Kun til disk : 



Budgetpr-D. , Dbase 1 no.l , Grafen 
Tegnepro. , Te 1efonpro. 







_ 2 ^_ 


RANDOM UYDE MSX * SPACE FIGHTER MSX **** 


RANDOM LYDE MSX 

SKØRE LYLE ER LET NOGET FOR DIG 

Hermed et i l i te program med Random 
altså tilfældige lyde på din IDSX'er 
DU kan endda få Sound taiiene vist 
på skærmen så du kan notere dig en 
evt god iyd ti i genbrug 

1 ' HH*#*##****:#**********# 

2 '* * 

3 '# Random tyde på IDSX * 

4 '« * 

5 '# Syncom af Johnny B * 

6 ' * * 

7 '* SYNTAXEN 1988 * 

8 ' w*«***w«#w************* 

9 ' 

10 CLS:Y.EYOFF 

11 LOCATE 13,0;PR I NT"SYNCOW':PR I NT 
20 INPUT"Tempo EG maximum (1-255)"; 
G 

30 PR I NT"Vi se parametre på Skærm (1 
=ja 0=nej)";Q<=I NPUT*(1) 

40 FOR X=0 TO 1 3 :SOUNL X,0:NEXT 
45 '* * 

50 U=RNL(-T I IDE) 

GO X=INT(RNL(1 )*255-M ) 

70 X2=I NT(RNL(1 )#255+1) 

80 y=I NT(RNL(1 )*255+1) 

90 Y2=INT(RNL(1)*255+1) 

100 Z-I NT(RNL(1 )*255+1) 

110 Z2=I NT(RNL(1)*255+1) 

1 20 T=INT(RNL(1 )*255+1) 

130 R=INT (RNL(1)*31+1) 

140 E=l WTCRNDC?)*4 + 1);IF £=>3 THEN 
£=56 

150 P=INT(RNL(1)*G+1 ) 

1 GO W=INT(RND(1)*15+1) 

170 IF £=2 THEN E=k8 

180 IF E=1 THEN E=7 

190 SOUNL 0,X2:S0UNL1.X:' tone A 

200 SOUNL 2,Y2:S0UNL3,Y:' B 

210 SOUNL 4,Z2; S0UNL5,Z:' C 

220 SOUNL G,R 

230 SOUNL 7 ,E 

240 SOUNL 8,17:SOUNL 9,17:SOUNL 10, 
17:'vol 

250 SOUNL 11,T:SOUNL 12,P:'ADSR 

260 SOUNL 13.W;'EG 

270 IF Q*="1" GOTO 300 

280 FOR 1=1 TO (P"2)/4: NEXT:GOTO GO 

290 ' - print data - 


300 LOCATEO,5;PR I NT“Par arne tre":A*=“ 
SOUNL ":Z*=" 

310 PR I NT:PRINTA*;" 0,";X2;X*:PR I NT 
A*;" 1,";X;Z$: PRINTA*;" 2,";Y2;1* 
320 PRINTA*;" 3,“;Y;Z *:PR INTA *;" 4, 
";Z2;Z«;PR IWfA$;" 5,";Z;Z$ 

330 PR I NTA* ; " G,";R;Z*:PR INTA*;" 7, 
" ;E:PR INTA *;" 8, 17":PR INTA*;" 9, 1 
7":PR INTA*;"10, 17“ 

340 PRINTA*;“11 ,";T;Z*:PR INTA*;"12, 
";P;Z*:PR INTA*;" 13.";W; Z* 

350 PRINT:PRINT“Repeter (l=ja 0=nej 
;:A*=INPUT*(1):IF A*="1" GOTO 190 
3G0 GOTO GO 




SPACE FIGHTER 
FRA JAPAN TIL 
MSX 

1 ’Ht^tiK^************************** 


2 ’* * 

3 '# SPACE FIGHTER ET SPIL LIGE * 

4 ’* FRA JAPAN SIKKERT GUF FOR $ 

5 ’* VORES YNGSTE SPILLEGLADE * 

6 ’* HEJ JOHNNY B - SYNTAXEN 88 * 

7 '* * 


8 

? ' 

10 COLOR 15,4,4:SCREEN2,1:CLEAR 100 
,&HCFFF 
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*-**•* SPACE FIGHTER TIL. MSX ■#•**■*■ 


20 DEFINT A-Z:B=3:HI=1000:3C=0:3=2: 
SA=1iK=0 

JO RE3T0RE970:FORI=&HDOOOT0&HD02E:R 
EADD$:D=VAL (" 8<h" +D$) sPOKEI, D:3UM=3U 
M+DsNEXT:IF SUM<>3304 THEN 3CREEN0:P 
RI NT" data error" : END 
40 DEFUSR=&HDOOO:DEFUSR1=&HDOOD:RES 
TORER 10 

50 FORI=OT01O: F0RJ=1 T08:READD$: A$= 
A$+CHR$ (VAL (" &h " +D$) ) : NEXT: SPRI TE$ ( 
I)=A$:A$='"' i NEXT 
60 ’ tegn skærm 

70 OPEN"grp:"AS#1:P3ET(60,60) , 4:PRI 
NT#1,"SPACE FIGHTER" 

80 P8ET (165,60) ,4: DR AN" c7u 1 Or 20 d5gl 
5rl5d5120u5e15110 d515 
90 PAINT(166,58),7 

100 P3ET(65,160) , O:PRINT#1, "HIT 3PA 
CE KEY" 

110 IFSTRIG(O)THEN120EL3E 110 
120 LINE(0,0)- (255, 60) ,2, BF:LINE(O, 
129) - (255,191) ,2, BF 
130 G0SUB730:G03UB740 
140 GOTO 780 

150 U=USR (O) i ME$=" STAGE "+RIGHT$(" 

" +STR$ (SA) ,1) :G0SUB690 

160 U=USR1(O):IFPOINT(X+B, Y+8)=6 THE 

N330 

170 IFX1=<0THENX1=255:Y1=INT(RND(-T 
IME)$15)+90 ELSE26O 
180 SP=INT(RND(1)*S)+1:IFSP=3THENY1 
=110 

190 A=SP:ONA G0T0200,210,220,230,24 

0,250: GOTO 200 

200 RESTORE980:GOTO 260 

210 REST0RE990:GOTO 260 

220 RES TORE1000:GOTO 260 

230 RES TORE1010:GO TO 260 

240 RESTORE1020:GOTO 260 

250 RESTORE1030 

260 IFX+16>=X1ANDX-16=<X1ANDY+16>=Y 

1ANDY-16=<Y1 THENGOSUB420 

270 IFMI=OANDINT(RND(1)$15-SP)=1 THE 

NMI=1: XX=X1: YY=Y1 +9 

280 IFM1=1THENXX=XX-20:PUTSPR ITE3, ( 

XX, YY),8, 7:IFXX=<X+8ANDXX>=X-5ANDYY 

=<Y+16ANDYY>=YTHENGOSUB420 

290 IFXX=<0THENM1=0:PUTSPRITE3, (0,2 

09) 

300 I FM=0 AN DS TRIG (O) THENM=1: XM=X: YM 
= Y+B: IFK=OAND Y=<6 5ANDX>=12 9 THEN GOS 
UB 760 


310 IFM=1THEN XM=XM+15:PUTSPRITE2, ( 
XM, YM),13,7:IFXM+16>=X1ANDXM-16=<X1 
ANDYM=<Y1+16ANDYM>=Y1-5THEN470 
320 IFXM>=255THENM=0:PUTSPR ITE2, (XM 
,209):GOTO 340ELSE340 
330 GOSUB420 

340 G0SUB370:ST=ST+1:IFM=OANDM1=OAN 
DST>=400 THEN 490 

350 READRX, RY:X1=X1 -RX: Y1 = Y1 -RY: PUT 
SPRI TE 1, (XI ,Y1) ,SP+7,SP:G0T0 160 

360 '- vælg stick 

370 A=STICK (O) : X=X+ (- (A=2) - (A=3) - (A 
=4) + (A=6) + (A=7) + (A=8) ) *5 
380 Y= Y+((A=1) + (A=2) + (A=8) - (A=4 ) - (A 
=5)-(A=6))*5 

390 IFX>=140THENX=X-5EL3EIFX=<0THEN 
X=+5 

400 IFY>=110THENY=Y-5ELSEIFY=<55THE 
NY=Y+5 

410 PUTSPRITEO, (X, Y) ,14,0:RETURN 
420 PUTSPR I TEO, (X, Y) ,8,10 
430 PLAY" vl3o3ee" , " vl3olee" 

440 B=B-1: GOSUB730: IF0>=BTHEN640 
450 X1=-32:XX=-30:Y=90:PUTSPRITE3, ( 
O,209):RETURN 
460 ' 

470 PLAY" vl3o8F9d9" : PUTSPR I TE 1, (XI, 
Yl),8,10:SC=SC+100:XI=-32:XM=255:M= 
O:GOTO 160 

480 '- caution 

490 SC=SC+500:X=10:Y=60:PUTSPRITE1, 
(O, 209):YY=8S:AT=0:ME$= " CAUTION!" :G 
0SUB690:U=14-SA 

500 PLA Y" vi Jol ffFFF', " vi 3o2eeeee" : F 
ORI=235T0200STEP-3 

510 PUT SPRITES, (1,80) ,SA+10,8:PUTS 
PRITE9, (1+16,SO),SA+11,9:FORJ=0TO10 
O:NEXTJ, I 

520 IFMI=OANDINT(RND(1)*5-SA)=1 THEN 
Ml=l:XX=180 

530 IFMI=1THENXX=XX-20:PUTSPRITE3, ( 

XX, YY), 9,7:IFXX=<X+16ANDXX>=X-BANDY 

=<88ANDY>=72THENG0SUB420 

540 IFXX=<-8THENM1=0 

550 IFM=OANDSTRIG(O) THENM=1:XM=X: YM 

=Y+8:U=U-1 

560 IFM=1THENXM=XM+15:PUTSPRITE1, (X 
M, YM) , 13,7:IFXM>=200ANDYM=<96ANDYM> 
=80THENAT=AT+l:BEEP:PUTSPRITE1, (XM, 
209):XM=255:M=0 

570 IFXM>=256THENM=0:PUTSPRITE1, (O, 
209) ELSE IFAT>=10THEN590 
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-X--*-** SPACE FIGHTER TIL MSX **** 


580 IFU=<0THENME$="NO MISSILE":GOSU 
B690: GOSUB420: U= 13-SA : GO TO 520EL SEG 
0SUB370:GOTO 520 

590 ’ - mål 

600 ME*=" DESTRUCTION" : GQ3UB69Q: PLA Y 
" vi Jol t255efefaeeee" , " vl3o3t255afef 
bbbbb" s PUTSPR I TES, (0,209> : PUTSPR I TE 
9, (0,209) 

610 PUTSPR I TES, (200,80) , 8, 10: PUTSPR 
ITE9,(216,80),8,10:SC=SC+1000:FORT* 
1T02000:NEXTT 

620 S=S+2:ME$-' STAGE " +RIGHT $(" " +S 
TR* (SA) ,1) +" CLEAR" :GOSUB690:SA=SA+ 
1 sB=B+1:GOSUB730:G0SUB750:GO TO 780 

630 '- spil slut 

640 ME$="GAME OVER":GOSUB690 

650 IFSOHITHENHI =SC 

660 MEø=" SCORE" +RIGHT$(" "+STR 

*(SC),6):G0SUB690 

670 G0SUB740 

680 IFSTRIG(O)THENSC=0:B=3:S=2:STA= 
1:SA=1:GOSUB750:GOTO 780ELSE680 
690 LINE(70,140) -(180, 150) ,1, BF 
700 PSET(74,141),1:A=LEN(ME$)::COLO 
R15: F0RI=1TOA 

710 PRINT#1,MIDø(ME$,1,1);:BEEP:FOR 
J=0T020:NEXT:NEXT:FOR1=0TOl000:NEXT 
:RETURN 
720 ' 

730 LINE (160,1)-(210,10) , 1, BF: PSET ( 
163, 3) , 1: C OL OR 7: PRINT# 1, " LEFT" ;RIG 
HT$ (" " +STR$ (B) ,1) : RETURN 
740 LINE (1,1) - (100,10) , 1, BF: PSET (2, 
2) , 1: C OL OR 2:PRINT#1, "HI-" ;RIGHT$ (" 
" +STR$ (Hl ),7): RETURN 
750 FOR I=0TO9: PUTSPR I TE I, (0,209) :NE 
XT: RETURN 

760 PSET (200,65) : REST0RE770:FOR 1=1 T 
08: READD: PR I NT# 1, CHR$ (D) ; : NEXT: PLAY 
" v13o7b9F9b 9":SC=SC+500:K=1:Xl=-32: 
RETURN 

770 DATA98,121,127,77,65,69,68,65 
780 IFS>6THENS=6:GOTO 780ELSEST=0:A 
* SA:X=10: Y=90:XI=0:M=0:Ml - O:K=0:ONA 
GOTO 810,860,890:SA=1:S=2:GOTO 780 
790 READC, D: READRX, RY: PSET (RX, RY) , C 
:FOR 1=1 TOD:READRX, RY:LINE- (RX, RY) , C 
:NEXT 

800 RETURN 

810 LINE (O, 60) - (255,128) , 4, BF:RESTO 

REB50:GOSUB790:G0SUB790 

820 PAINT(1,110),C 

830 G0SUB790:G0SUB790 

840 PAINT (10,110) ,0: PAINT (127,127), 

C: GOTO 150 


850 DATA3, 6,0, 100,30,110,60,80,127, 
110,170,90,200,120,255,100,3,1,255, 
128, O, 128, 12, 3, O, 100, 12,128, 30,110, 
O, 100, 12, 5, 60,80, 80, 128, 255,128,170 
,90,160,124,60,BO 

860 L INE (0,60)- (255, 128) , 7, BF: RESTO 
REB80: GOSUB790: PAINT (1,127) , C:FORI= 
112T0125STEP4: F0RJ=1 T0655-I*5: PSET ( 
RND (1) *255, I), 15:NEXTJ, I 
870 GOTO 150 

880 DA TA4,3,0,110,255,110,255,128, O 
,128 

890 LINE(O,60)-(255,128),1,BF:RESTO 
RE900:G0SUB790:PAINT(10,127),C:GOSU 
B790: PAINT (10, 62 ) ,C: GOTO 150 
900 DATA6, 7, O, 128, 80, 100, 95,125,140 
,110,180,125,240, 115,255,128, 0,128, 
6, 7,0,60,50,80, 90, 70, 135,85,170,68, 
220, 90,255,60,0,60 

910 DA TAOO, 00, cO, e2, 7f, 26, 9F, eO, 00, 
03, Of, 19, ff, Od, 03, 00 
920 DATA03, 04, Od, 13, ff, Od, 03, 01,18, 
40, 42, 7 b, 40,2a, 49,89 
930 DATA02, 04, Oc, fe, fa, Oa, fB, 03,32, 
76, da, da, fa, de, 76, 32 
940 DATAlc, 2a, 69, ff, 69,69, 7f, 3c, 3c, 
00, 00, 00, 00,00,00,00 
950 DA TAOO, 00, fe, d7,aa, 7f, 3c, 00, lf, 
le, ff, ff, ff, c2, 31, Of 
960 DATA06, 54,22, 88,22, 00, 94,29 
970 DATA21,00,19, 11,00, el ,01,00, 01, 
cd, 59, 00, c9, 06,08,11,00, el, 21,01, el 
, c5, 01, lf, 00, la, ed, bO, 12,23,13,cl,l 
O, f3,21,00, el, 11,00, 19,01,00, 01, cd, 
5c,00,c9 

980 DATA15, 0,15,0, 15,0,15,0,15,0,15 

,0,15, O, 15, 0,15, O, 15, 0,15,0,15,0,15 

,0,15,0,15,0,15,0,15,0 

990 DATA 15, 0,15,0, 15,0,15,0,15,0, 15 

,0, 15,0, 15,10,15,10,15,10,15,-10,15 

,-10,15,-10,15,0,15,0,15,0,15,0,15, 

O 

1000 DATA 15, O, 15, O, 15, O, 15, O, 15,0,1 
5,0, 15,0, 15,0,15,0, 15,0,15,0,15,0,2 
O, 10,20,10,20,10,20, 10,20,10,20,0 
1010 DATA10,0, 10,0, 10,0, 10,0,10,0, 1 
0,0,30,0,30,0,30,0, 10,0, 10,0, 10,0,3 
0,0,30,0,30,0 

1020 DATA 15, O, 15, 0,15, 0,15, 0,15,0,1 
5,0, 15,0, 15,10,15, 10,0, 10,0,10,-15, 
O, -15, O, -15, -10,-15, -10, O, -10, O, -10 
,15,10,15,10,20,0,20, O, 20, 0,20, 0,20 

,o 

1030 DATA15, 0,15,0,15,0,15,0,40,-10 
,15,0,15, O, 15, O, 40, 10, 15, 0,15, 0,15, 
0,15,0,15,0,15,0 












KØB / SALG Bi NYE MEDLEMMER **■**■ 


s************************************* i *************************************** 

* NELJHEITEW * SONDERANBEBOTE * NEW * SPECIAL OFFERS * NOUVEAU * 

***************** SONY 512 kB RAM EXPASION MAPPER DM 449.00 ********** 

* PHILIPS NMS 1200 FLOPPY DISC INTERFACE (All Formats/Al 1e Formate) DM 239,-* 


'20 kB FLOPPY DISC DRIVE (without case/ohne Behaeuse) 
720 kB FLOPPY DISC DRIVE (with case/mit Behaese) 

720 kB MSX FLOPPY DISC B DRIVE 


DM 239,-* 
DM 279,-* 
DM 379,-* 


* 

720 KB MSX FLOPPY 

DISC 

A DRIVE 

(Philips 

Interface) 




DM 599, 

-* 

* 

2 - 720 

kB DISC DRIVES 

+ PHILIPS 

INTERFACE 




DM 699, 

i -# 

* 

PHILIPS 

NMS 

1431 

MSX 

PRINTER / 

DRUCKER 




DM 

669, - 

* 

* 

SPECTAVIDEO 

728 

MSX—1 

COMPUTER 

QWERTY 

Keyboard 



DM 

298,- 

* 

* 

SANYO 

MPC 

64 

MSX--1 

COMPUTER 

DIN 

Tastatur 



DM 

298,- 

* 

* 

PHILIPS 

VB 

8020 

MSX-1 

COMPUTER 

DIN 

Tastatur 



DM 

298, - 

* 

* 

PHILIPS 

NMS 

8220 

MSX-2 

COMPUTER 

QWERTY 

Keyboard 

0 

DD 

DM 

539, - 

* 

* 

PHILIPS 

VS 

8235 

MSX-2 

COMPUTER 

DIN 

Tastatur 

1 

SSDD 

DM 

898, - 

* 

* 

PHILIPS 

NMS 

8245 

MSX-2 

COMPUTER 

QWERTY 

Keyboard 

1 

DSDD 

DM 

999,- 

* 

* 

PHILIPS 

NMS 

8280 

MSX-2 

COMPUTER 

QWERTY 

Keyboard 

2 

DSDD 

DM 

1999,- 

* 

* 

PHILIPS 

NMS 

8280 

MSX-2 

COMPUTER 

DIN 

Tastatur 

2 

DSDD 

DM 

2197,- 

* 


*************************************** ************************************ 
>>>>> DYNAMIC PUBLISHER <<<<< 

DYNAMIC »»»««« PUBLISHER 

DESKTOP PUBLISHINB FOR MSX-2 i !!!!!! ! 

It was specifically written -for MSX-2 
and has been canverted to IBM -format. 


* ’N.B. Purchase is NOT compulsary 


M.O.S. Software Club 
CM3SX COlrientated CSIystems ) 


Annual Subscription 
Jaehrlich nur 


DM 19.95 
DM 19.95 


DESKTOP PUBLISHINB FUER MSX-2 !!!!!!! * 

Es wurde speziel fuer MSX-2 geschrieb.* Special 

und jetzt fuer IBM Computer umgeschrb.* Club 

EXKLUSIV E bei H S H * 

Dyamic Publisher (Deutsch) DM 169,- * WICHTIS Es gibt KEIN Kaufzwang 


Club Pri ces 
Sonder-prei se 


**************************************** ************************************* 
SPECIAL CLUB PRICES FOR MOS MEMBERS i CLUBSQNDERPREISE FUER MOS MITBLIEDER 


INDMELDELSESBLANKET 


FORNAVN: _ 

EFTERNAVN: _ 

ADRESSE: _ 

TLFNR.: _ 

POSTNR. *BY: 
ALDER: _ 

maskine: _ 

SIV. UDSTYR: 


INTERESSE OMRADE: 









-*-**■* KØB / SAL-O &c NYE MEDLEMMER •*-**-*- 



KLIP ^ KLIP KUF KUP KUF KUF KLIP KUP KUP KLIP KLIP KLIP 


MSX BRUGER-KL-LJBBEN . 
KASSERER PREBEN LUND 
HYLDESPJÆLDET 
TØMMERSTRÆDET 19 
2620 ALBERTSLUND 
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****• BASIC MED PETER 


tælle til 10. 


BASIC MED PETER 

Mange køber programmer, uden at 
forstå, noget om programmering. 
Ligeså mange ville ønske, at de 
selv kunne lave Deres 

programmer. 

En forudsætning for at kunne 
programmere, er at forstå de 
mest elementære rutiner. 

Nej ! ! Lad nu være med at sige: 
Dem kan jeg da sagtens! - men 
læs i stedet for videre - selv 
de mest garvede programmører 
har ingen skade af at få 
genopfrisket grundprincipperne 
i de rutiner der oftest 
forekommer. 

DERFOR: Vær med her fra 

begyndelsen til en helt ny form 
for indlæring/genopfriskning. 

Stoffet er ikke orienteret mod 
nogen bestemt computertype, og 
skulle kunne anvendes på langt 
de fleste som medlemmer af 
denne klub repræsenterer. 

Her er et program, som der er 
tre fejl i. Programmet kan, når 
det er fejlfrit, tælle til 10. 

10 FOR A = 1 TO 10 
20 B = B + 10 
30 PRINT C 
40 NEXT C 

Prøv om du kan finde fejlene 
uden at indtaste programmet 
først. Synes du det er for 
svært? Så kan du prøve, at 
indtaste programmet, og du vil 
så få fejlmeddelelse i linie 40. 

Men selvom du retter denne fejl, 
opfylder programmet ikke det 
krav vi stillede til det: At 


For at få programmet til at 
virke efter hensigten skal der 
også rettes i linie 20 og 30. 

Kan du selv regne ud hvad der 
skal rettes? 

Hvad foretager programmet sig 
egentlig? 

Linie 10 : vi beder programmet 
om at forøge A med 1 fra 1 til 
10 i en såkaldt FOR-NEXT løkke. 
Løkken starter i linie 10 og 
slutter i linie 40. De mellem¬ 
liggende linier bliver altså 
gentaget 10 gange. 

Linie 20 : Vi beder programmet 
om at lægge en værdi til B. 

Linie 30 : Programmet printer 

inholdet af C ud på skærmen. 

Da vi ikke har tildelt C nogen 
værdi, bliver resultatet en 
række nuller. 

Løsningen på opgaven er altså: 

I linie 30 rettes C til B. 

I linie 20 rettes 10 til 1. 

Den tredie fejl i linie 40 har 
vi allerede omtalt. 

Nu har du fået løsningen 
serveret. Nu skal du selv til at 
tænke. Jeg vil gerne have 
skrevet 2-tabellen ud på een 
vandret linie. 

Find tre fejl så ovennævnte krav 
bliver opfyldt. 

10 FOR A = 1 TO 20 
20 B = A + 2 
30 PRINT B, 

40 NXET A 

Løsningen kommer i næste nummer, 
hvor vi desuden kommer med en 
ny opgave. 

peter. 
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MSXBIB **■*■* 


mSXexB 

Som omtalt andet steds i bladet 
kan jeg nu tilbyde jer Basic-compi- 
leren "MSX-Basic-Kun *’, der kan o- 
versætte et basic-program til ma¬ 
skinkode, hvilket medfører en ge¬ 
valdig hastighedsforøgelse. Pro¬ 
grammet kan kun bruges af 64 Kram 
maskiner Til programmet medfølger 
en vejledning. 

Derudover har jeg stadig en 
kasse med original versioner af 
spillet "Knight Tyme” på bånd lig¬ 
gende som igennem BIB sælges for 
kr. 35,- inkl. forsendelse, hvis 
det købes alene og kr. 25,- hvis 
det købes sammen med andre program¬ 
mer i BIB. 

Ønsker du at komme i besiddelse 
af nogle af de ovenfor eller dem i 
nedenstående liste nævnte program¬ 
mer fra MSX-BIB er fremgangsmåden 
som altid: 

Du sætter dig ned og finder ud 
af hvilke programmer du vil købe. 
Derefter slipper du joystikket for 
en stund, går hen på posthuset, 
fatter et giroindbetalingskort, og 
skriver programnavnene på bagsiden. 

Priser: 

15 min. bånd - 25 dkr. stk. 

5.25” disk - 25 dkr. stk. 

3.5" disk - 35 dkr. stk. 
programmer - 10 dkr. stk. 

Forsendelses omkostninger er in¬ 
kluderet i disse priser. 

Et bånd kan rumme 8 programmer. 
En disk kan rumme hele biblioteket. 

Eks: 8 programmer på 3.5" disk 

koster 8 * 10 + 35 = 115 dkr. 


Programmerne bestilles hos: 

Kim Andersen 
Fundervej 32 
2610 Rødovre 
gironr. 7 50 87 00 


Jeres egne programmer sendes til 
samme adresse. (der venter stadig 
en belønning i form af bånd eller 
disketter efter eget ønske). 

Kim 



Øvrigt indhold i MSX-BIB: 

- "Milas”, teksteventyr i Milas's 
slot. Rimelig underholdende. 

- "Nim”, det gamle kinesiske pinde¬ 
spil - hvem tager den sidste pind? 

- "Tank", 2-mandsspil hvor man skal 
kanonføde hinanden. 

- "Wall”, 2-mandsspil lignende 
bordtennis. 

- "Seafight", Skyd jetjagere, der 
angriber ens skib. 

- ”Fødag", sig tillykke til din mor 
med et lille grafik/lyd show. 

- "Kalender”, Udregner kalender for 
ønsket år eller ugedag for dato. 

- "Colortrim”, definer nye farver 
mellem 512 mulige. Kun til SVI-738. 

- "Bronski", spiller Bronski Beat's 
’Smalltown boy’. 

- "Musik”, en lang række kendte 
melodier, bl.a. 'Cavatina'. 

- "R2D2”, tegner det lille kære 
metal væsen. 

- "Lamborghini”, har du ikke råd 
til at købe en, så se en. Flot! 

- "Lineshow”, meget flot demonstra¬ 
tionsprogram med bevægende linier. 

- "Kegle”, vælt den enlige bevægen¬ 
de kegle med din bowlingkugle. 

- "Figflyt", kan flytte og dreje 
figurer du tegner ved at angive 
hjørnekoordinater. Regner nye ud. 
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*-**-* MSXBIB * MUCQBIB -*-*-*-* 


- "Sprite", tegn din sprite og du 
får hvad der skal stå i data¬ 
linierne. Meget enkelt. 

- "Regression", smart program der 
ud fra indtastede data (koordina¬ 
ter) tegner en tilpasset kurve. 

- "Tegne", lille tegneprogram med 
de gængse kommandoer. Flot grafik. 

- "Snake Valley”, æd modstanderens 
, hale inden han æder din. For 1 

eller 2 spillere. Rigtig sjovt! 

( - "Biorytmer”, afgør hvordan din 

* fysiske, psykiske & intellektuelle 

tilstand er d.d. 

- "Chopper”, helikoptorspi1 med 12 
baner, incl. designerprogram til at 
lave mange flere. 

- "Ormrun”, Charlottenlund Travbane 
med orme, flot grafik & lyd. 

- "Demo”, oplev hvilke grafiske 
muligheder din MSX indeholder. 

- "Amorti", regner rente, afdrag og 
restgæld på din afbetaling ud. 

- "Tips”, indtast dine tips (også 
sys.) og prog. viser antal rigtige. 

- "The Maze”, lav en labyrint og få 
en anden til at slippe igennem. 

- "Life”, tegn et mønster af cel¬ 
ler, og du ser dem udvikle sig. 

- "Sound Maker”, lav den rigtige 
lyd til dit sdpil på denne flotte 
mikserpult. 

- "Halv Tolv", lige som i Monte 
Carlo, på med pokerfjæset. 

- "Danmark", lær de danske byers 
beliggenhed, flot grafik. 

- "Oil”, bliv olie-sheik på no 
time, sjovt to-mands-spi1. 

- "Puzzle", sjovt puslespil på 16 
brikker med bevæglige billeder. 

- "Skyd Nu”, skeetskydning som du 
kender det fra 01, hurtig grafik. 

i - "Pengo", det iskolde gys, klas¬ 
sikeren fra spillehallerne. 

- "Søjle", behandler tal og stiller 
dem op som kurver el. søjler. 

- "Eliza", Psykologen hjælper dig 
med kærestesorgerne, på engelsk. 

- "Graf”, tegner en graf for den 
indtastede funktion, brugervenligt. 

- "Kartotek”, hold styr på dine 
cassette bånd og programmer. 

- "Moon superlækkert gra¬ 

fik lander program, 5 baner. 

- "Frogrun”, få frøen sikkert over 
vejen og floden. 


- "Dump", screendump prog. til din 
Epsonkompatible printer. 4 forstør¬ 
relser. 4 gråtoner. 

- "Dbase”, hurtig dbase hvor du kan 
sætte alt i system, indbygget ud¬ 
printningsfacilitet. 

- "Screen Store”, kan gemme to 
skærmbilleder og lynhurtig få dem 
frem igen. Kun til 64 k maskiner. 

- "Ram Disc”, arbejd med to pro¬ 
grammer på samme tid. Kun til 64 k 
maskiner. 


f&i ofaftG&båéGMÅeden 
md _ min tøomjUot&iA 
| fåiAætteiAe- g 

Madé detmtin øCøb&nA&n 


ons MUCOBIB... 

Alle programmet som SYNTAXEN har 

BRAGT MED MIT NAVN KAN DU ERHVERVE 
VIA MUCO-BIB 

15 Min. Bånd 25 Dkr. stk 
5 . 5 "" disk 35 Dkr. stk 

FORSENDELSE INCLUSI VE 

Bestil hos: 

Johnny b Musik 
lindevænget 237 
8600 Silkeborg 

GIRO NR: 8 41 10 93 

Småprogrammer Dkr. 5 stk 
Almprogrammer Dkr. 10 stk 

Småprogrammer er programmer pa 1 

SPALTE OG DERUNDER. 

OBS 1 HEL DISK FYLDT MED COMPOSER 
OG VOG FILER 

D KR. INCL DISK + PORTO 150,- 


JOHNNY 





FORBEHOLDT POSTVÆSENET 


Capeorn 

Gunsrnake - det vilde vesten er blevet 
endnu vildere, sarn sherif kan du kun 
stole på dig selv, oq ramme banditei— 
ne før de rør sig; i western-byen, 
ved jernbanen, i bjergslugten bq på 
fladen de er alle vegne 144.- 

Code Masters 

F'ro-Snooker - billiard 1/2 spillere 38.• 

Brnx Simulator - Fuld fart frern gennem 
grusbanen, kør din modstander i sænk 
inden han gør det mod dig, 1/2 spi. 38.' 

Grandslam 

The Flintstones - Fred og Barney vil 
bovle, rnen først må stuen rnales rned 
et (pensel-) egern og holde øje med 
F'ebbles; tag del i Freds weekend 
problemer, 4 baner; Yabba Dabba Do 128.- 

HAL 

Dunkshot - Basketball, 1/2 spillere 215.- 

Hole in One Professionel - bedste golf, 

2 baner rn. hver 18 huller + lav egne" 
baner, 1/2 spillere 277.- 

Hole in One Special - MSX2, 2 sæt 18 
huls baner, 18 golfkøller, 3 spil¬ 
typer for 1/2 spillere, 128K 295.- 

Robtek 

Turbo 5000 - Utility cartridqs MSX1&2, 
diskmonitor, turboload bånd 4600 baud, 
printer-durnp af alle MSX1&2 skærm¬ 
typer + diverse bånd/disk rutiner 390.- 

U.S. Gold 

lOth Frame - bowling for 1 til 8 spil., 
rned korrekte regler og rn. bla. mulig¬ 
hed for at skrue kuglen 68.- 


Arrnv Moves - rned jeep, fly og til fods 
skal du trænge gennem fjendes linjer, 
for at na frem til deres hovedkvarter; 
action spil i flere dele 68 

Batman - i alvorlig knibe, rned problemer 
på stribe, stjålet og delt er den be¬ 
rømte bat-rnobil, oq batrnan må i sæd- 
vaneliq stil, klare det hele og finde 
alle dele. The caped crusader som 
arcade-adventure rn. 31) grafik 68 


Hed Liqht of Amsterdam - strippoker rned 
flotte video digitaliserede billeder, 
for M8X2 computere 

kassette 78.- , disk 95.- 

Endurance Garnes 

International Karate - karate hele 

jorden rundt, 1/2 spillere 68.- 

Konarni 

F1 spirit - race for alle med benzin i 
bladet, start i rally klassen og kæmp 
dig op til toppen af forrnula 1, vælq 
selv rnotor, gearing, karrossari og 
hjulophæng, rned ekstra lydchip 277.- 

Salarnander- - Konarnis nyeste rumspil, 
for 1/2 spillere, med nye våben og 
endnu mere ondskabfulde fjender, rned 
ekstra lydchip 277.- 

Metal Gear - Agent Snakeeye skal finde og 
ødelægge det:'nye oq ukendte våben i 
Outer"Heaven fortet, på vejen må du 
skaffe de nødvendige våben, ammunition 
og adgangskort til at kornrne rundt i 
hele fortet, proppet rned vagter, over¬ 
vågningsudstyr og fælder, MSX2 295.- 

Usas - Udforsk’ østens tempel ruiner rned 
din MSX2 computer 295.- 

- flere nye titler: 

180, Addictabal 1, Arnaroute, Anqleba.il, 
Bastard MSX2, Chubby Gristie, Coconut 
Capers, Colossus Chess, Danger Mouse, 

Deep Forest MSX2,- Master of the Universe, 
Match Day II, Pepsi Challenqe, Tetris, 

Time and Magic Trignology, Venorn strikes 
back, Voidrunner, World 'Garnes.... 


5.25" neutral disk, 2 sidet, 20 stk. 110.- 
3.5" neutral disk, 2 sidet, 10 stk. 140. ■ 


Ai'le priser er inkl. dansk moms. Forbehold 
for trykfejl og pris ændringer. GRATIS 
forsendelse véd forudbetaling rned 
check/qiro. Bestillinger under kr. 100.- 
ti. liægges dog kr. 20.-“ekpeditionsgebyr. 


til hele Skandinavien 
e/Norge indbetal den < 


hvad du ønsker 


IFHSpq 







